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Non è facile identificare i caratteri di controllo in un listato BASIC del 
COMMODORE 64: elenchiamo qui sotto i simboli più usati. 


ASCII 

PRINTS 

DESCRIPTION 

146 

mm 

Reverse Off Usa il tasto CTRL 

18 

m 

Reverse On Usa il tasto CTRL 

3 


R UN/STOP 

147 

E 

Clear CRL 

19 

IH 

Home 

145 

m 

Cursor Up 

17 

ED 

Cursor Down 

157 

■1 

Cursor Left 

29 

ca 

Cursor Right 

148 

II 

Insert 


IV 




PREFAZIONE 


Il COMMODORE 64 rappresenta un eccellente investimento in relazione 
al suo costo. 

Le caratteristiche che fanno emergere questo computer rispetto ai con¬ 
correnti comprendono: un’ampia memoria standard di 64 K byte di RAM, ec¬ 
cellenti possibilità di grafica e di suono e in più una delle migliori tastiere di¬ 
sponibili sul mercato. 

Il computer è basato sulla CPU 6510, che è una versione evoluta della ben 
nota 6502. 

La prima parte di questo libro contiene una serie di programmi di giochi 
che sono pronti per essere battuti ed essere messi in funzione con il coman¬ 
do RUN. 

Tutti questi programmi sono scritti in semplice BASIC COMMODORE. 

La seconda parte del libro vuole insegnarvi come sfruttare la potenza del¬ 
le nuove caratteristiche del vostro COMMODORE 64, per esempio il colore, 
la grafica ad alta risoluzione, lo scrolling, gli sprite, il suono, i joystick e le 
paddle. 

Quando avrete terminato la lettura della seconda parte del libro sarete ca¬ 
paci di scrivere i vostri programmi, anche i più sofisticati o completerete 
quelli della prima parte aggiungendo colore, suono e altre caratteristiche. 
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SLOT-MACHINE 


Questo programma simula una slot-machine. 

All’inizio dovete depositare una certa somma di denaro indicandone l’am¬ 
montare (per esempio 1,2 o 5). Il programma indicherà ogni volta l’ammon¬ 
tare del vostro credito in quel momento. Numeri alternati vengono mostrati 
in una finestra sullo schermo e per fermarli dovete premere la barra spazia¬ 
trice. 

A seconda della combinazione dei numeri mostrati potrete vincere una 
certa quantità di denaro che si aggiunge al vostro credito. 

Se non vincete, 20 cent per partita saranno sottratti dal vostro credito. 


99 REM 1. SLOT MfiCHINE 

100 GOTO970 
110 PRINT'Tl 

120 PRINT -. 

130 PRINT'ftMMUHMmi_I" 

140 PRIMT”lftft»»ft»»»ftftll3l C64-LUCK 11" 

150 F0RZ=1T04 : PRINT’IMkMM»»»» : 

160 NEXTZ 

170 PRINT"IMM*M»MII * \ I / * I" 

180 PRINT* \l/ * I" 

190 PRINT "l»k»»MMMII * .-s * I" 

200 PRINT5*e I I* I" 

210 PRINT"Ì*HM»»»M*! ! * ' -' * I" 

220 PRINT"IM»»MP»»II * TT * I" 

230 PRINT * CREDIT # I" 

240 PRINT"IMiÌ»»»>»»»l ; I" 

250 PRINT"lft»»ft»»»MII-I" 

260 PRI NT" ««ISTORIMI !<- STOP I" 

270 PRINT ,, MMFREMI«II .-. I" 

280 PRI NT " MKSPRZ 10>ll I -' I" 

290 PRINT "IMPMPMMI '- 1 

300 PRINT"W®!l«OMMMMMM /-,11 /-Il,- 

310 PRINT M IM«MMM»II00IWI00IMI00 I I 

320 PRINT"«««««MI ••-II-"Il -' 

330 REM 
340 GOSUB880 
350 IFG=0THEN790 
360 FORX=*1TO20 

370 GETQt IFQf=" "RNDX>2THENX=20 GOTO570 
390 IFX*2THENG«G-20-GOSUB880 

390 R»INT <RND<1>#10>*10 :POKE1240,87 :P0KE55512,4 IF <fì/20> <>INT< R/20> THEN390 
400 POKE1245,81:P0KE55517,4 

410 B*INT<RND<1>#10>#1 0 = POKE1245,87:P0KE55517,4 IF(B/28><>INT<B/20>THEN410 
420 POKE1240,81:P0KE55512,4 

430 C=INT < RND <1)#10 > *10 :POKE1240,87 :P0KE55512,4 IF <C/20 ><>INT <C/20 >THEN430 
440 POKE1245,81 : P0KE55517,4 
450 IFR-0THENR**"#*":GOTO470 


1 























•*60 A*=RIGHT#<STR*<:A>/2> 

470 IFB=0THENB*="**" OOTQ490 
430 B*=RIOHT*<STR$(B>/2? 

490 IFC=0THENCS="**" GOTO510 
300 C*=RIGHT*<STR*<C>,2> 

310 REM 

320 PRINT"«IIQKi!IB»*»»*»*»»»»*»| . 

530 IFA«=BAHDA=CTHENPRINT" 3" A*"®»*ia M B*"»**l3"C*"»r GOTO 570 

540 I FAOCANDB=* 0 THENPR I NTA$ " »**ia” £* " 9 ** 1 " C* : GOTO570 

550 IFA=CANDB= 0 THENPRINT" 3"Af "9**13" B$" 9**13' ci"B" : GOTO570 

360 PR INTfìt " 1**1" BJ" 1 ** 1 " C* 

570 NEXTX 

380 POKE1240,102 :POKE1243,102 :P0KE55512,4 :P0KE55517.4 

590 1FR=0RNBB=0RNDC=0THENG=G+5000:GOSUB118 GOSIJB125 :GOTO670 

600 IFA=CANDB=0THENG=G+A:GOTO670 

610 I FB=0AND AOCTHENG=G+20 - GOTO670 

620 IFA=BANDA=CTHENG=G+A:GOTO670 

630 IFA-B ANDBOCTHEN670 

640 IFR-CRNDBOCTHEN670 

650 IFB=CRNDROBTHEN670 

660 IF AOB AND AOCTHENG-G+0 

670 GOSUB8S0 

680 IFG<20THEN790 

690 PRINT"*"; : FORI-1TO20 'PRINT" SI" , NEXT F0RI=1T017 : PRINT"»I" : : ME V T 
700 PRINT" ^a W" 

710 F0RI-1T018 : PRIHT"M"; NEXT PRINT"'»'" 

720 PRINT"M PREMI 'SPAZIO" 

730 GETF* : IFFSO" " THEN730 

740 PRINT||fl"; FORI=1TO20:PRINT"M"; : HEXT : FORI=1T017 : PRINT"M”: NEXT 
750 PRINT" 11 

760 F0RI = 1T018 : PRINT“»I"; : NEXT: PRINT" " 

770 PRINT'VM H IM 

780 GOTO330 

790 PRINT".^PllXi!l!!li!**********************B****| DEPOSITfì" 

300 PRINT"^lBlKH£Ba*9i*****************fe**********|jN GETTONE"; 

310 GETE* : IFEf=""ORVRL< Et > =0THEN810 

S20 E=VAL<E*0 : IFE>0THENPRINT">.JBH*1MMG>OLLARI "E* FiTRZ=lTO 10 A 0 NEXT 

830 I FE=0OREO 1RHBE02RNBE05THEN1380 

340 P=E* 100 : FORZ=1TO1000 : NEXT 

850 PRINT"£fQlSB!lPfr**»»»»»***»»***»»»»**»»»**k| 

860 PRINT"«S*IBnii<Iiai»*»»»***»»**»»»*»****»*»*****i 

361 PRINT\S!53Cr«l?M!(!!»**»******»s******»*****»***»i 
370 G-G+P:GOSUB880:GOTG 330 

380 PRINT "SKWsltìCSIBnii®***»*»*®********!" .; : IFG>999990THENPRINT" 7DWK5PRSS ! " : END 
881 PRINT "««.BHlsIeWHsItì!»***********»***!" ; : IFG>999990THENPRINT"mMSPRSS 1 " : FHB 
890 IFG=0THENG*="000":GOTO920 
900 IFG>0THENG*=STRt<G) 

910 G*=RIGHTI<G*,LENCG*>-1> 

920 M#=G* 

930 Q*=LEFT*CM»,<LEN(G*)-2)>:P#=RIGHT*<M*,2>:G#=OS+"."+P* 

940 IFLENCG*X 6 THENG*=" “+G* GOTO940 
950 IFLE1KG*»6THENG*=LEFT*<0*, 6 > 

960 PRINTCHR*<18>G*:RETURN 

970 PRINTCHR*<147);CHR*a8>" SLOT MAGHINE C64-LUCK 

980 PRINT"*M0v'UOI LEGGERE LE REGOLE ? <SXN> 

990 GETI*:IFI*=""THEN990 
1000 IFI *<> "S" RNDI*<>"N"THEN990 
1010 IFI*=”S"THEN1030 
1020 GOTO110 
1030 PRINT"SUM"; 

1040 PRINT"IL PROGRAMMA SIMULA UNA SLOT MACHINE" 

1050 PRINT 

1060 PRINT"LA SOLA DIFFERENZA RISPETTO A UNA VERA" 

1070 PRINT"SLOT MACHINE E'CHE IL COMPUTER NON PAGA" 

1080 PRINT"NESSUNA VINCITA : MA NON VI CHIEDE" 

1090 PRINT"NEMMENO DI ESSERE PAGATO !“ 

1100 PRINT 

1110 PRINT"IL COMPUTER ACCETTA GETTONI SIMBOLICI" 

1120 PRINT"DA 1 , 2/0 5 DOLLARI." 

1130 PRINT 

1140 PRINT"PER OGNI GIOCATA IL COMPUTER TOGLIE" 

1150 PRINT"20 CENTS DAL VOSTRO CREDITO." 
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1160 PR1NT 

1170 PRINT"PREMI <SPAZIO> PER CONTINUARE" 

1180 0ETN* IFH*O" "THEN1180 

1190 PRINTCHRJC147>TAB<13}"LISTO DEI PREMI" 

1200 PRINT"MS ** *# m = PRIMO PREMIO 50 DOLLARI" 


1210 

PRINT" 

60 

** 

60 

K 

VINCI L'AMMONTARE 

1220 

PRINT" 

40 

m 

30 

= 

20 CENTS" 

1230 

PRINT" 

30 

30 

80 

= 

80 CENTS" 

1240 

PRINT" 

60 

60 

60 

* 

60 CENTS" 

1250 

PRINT" 

40 

40 

40 

» 

40 CENTS" 

1260 

PRINT" 

20 

20 

20 

= 

20 CENTS" 

1270 

PRINT" 

20 

20 

60 

= 

NESSUN PREMIO" 

1280 

PRINT" 

** 

60 

40 


NESSUN PREMIO" 

1290 

PRINT" 

20 

40 

** 

s= 

NESSUN PREMIO" 

1300 

PRINT" 

80 

30 


= 

NESSUN PREMIO" 


1310 PRINT PRINT"LE STELLE AL CENTRO SONO IL JOLLV." 
1320 PRINT"SE I NUMERI A DESTRA E A SINISTRA SONO" 
1330 PRINT"UGUALI VINCI L'AMMONTARE INDICATO." 

1340 PRINT 

1350 PRINT"PREMI <SPAZIO> PER CONTINUARE" 

1360 GETN#:IFN#<>" "THEN1360 
1370 GOTO110 

1380 lFE>eTHENPRlNT“»nUHMnmMMMB«MMMMMMMM 
1390 FORZ=ITO1500 : NEXT 

1400 PRINT"»niHHIIIHII»MMMMM»»l>»M»M«»»MI 

1410 GOTO790 

READV. 


'RIFIUTATO ! 
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ROULETTE 


Il programma seguente simula il gioco della roulette in accordo alle regole 
internazionali. 

Potete scommettere su un singolo numero (da 1 a 36) o su una serie di 
numeri, come ad esempio tutti i numeri neri (premete “B”) o tutti i numeri 
rossi (“R”), sui primi dodici numeri (“DI”), su tutti i numeri pari (“P”), sui 
primi diciotto numeri ("MA”) e così via. 

All’inizio dovete comunicare la somma di denaro con la quale intendete i- 
niziare le scommesse. 


100 REM 2. ROULETTE 
110 PRINT'TJ" 

120 FRINT" a ROULETTE ■" 

130 FRINT:FRINT 

140 PRINT"SIMULRZIONE DEL GIOCO IN RCCORDO ALLE" 
150 PRINT"REGOLE INTERNRZIONRLI." 

160 PRINT 

170 PRINT"PUOI FUNTORE SU NUMERI DR" 

180 PRINT"S 1-36 ■" 

190 PRINT 

200 PRINT"SONO ANCHE POSSIBILI «SERIE", «COLONNE" 
210 PRI NT "«DOZZINE*, 3MANQUE", SPASSE"" 

220 PRINT" «TRASVERSALI", PER ESEMPIO 
230 PRINT 

240 PRINT"«TA"=TRRSVERSALE 1-2-3" 

250 PRINT" «TB"=TRRSVERSRLE 4-5-6" 

260 PRINT"«TM"=TRASVERSALE 34-35-36" 

270 PRINT 

230 PRI NT "SE ESCE LO 51 0 I TUTTE LE SCOMMESSE" 

290 PRI NT "SONO PERSE ! ! !" 

300 PRINT 

310 PRINT"PREMI UN TASTO PER CONTINUARE" 

320 GETA* IFR$=""THEN320 
330 PRI NT "3" 

340 PRINT 

350 FRINT"SPAIR" <aP"> «TUTTI I NUMERI PARI" 

360 PRINT"aiMPRIR" <«I")«TUTTI I NUMERI DISPARI" 
370 PRINT 

380 PR I NT " 3MRNQUE5 <aMR">*I NUMBERI 31-18"" 

390 PRINT"«PASSE" <SPA">«I NUMBERI «19-36"" 

400 PRINT 

410 PRI NT " «Li 1 "=NUMBERI «1-12"" 

420 PRINT" «D2»=NUMBERI ai 3-24"" 

430 PRINT" «D3*=NUMBERI «25-36"" 

440 PRINT 

450 PRINT"SSR"=NUMERI ROSSI" 

460 PRINT" «B"=NUMERI NERI" 

470 PRINT : PRINT"PREMI UN TASTO PER CONTINUARE" 

480 GETAf : IFA$=”"THEN480 
490 PRINT"3" 

500 GOSUB2210 

510 F0RZZ=1TG5 

520 " 

530 X=INT<RND<1>*3?> 

540 IFX<10THENVt="n " GQTO560 
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550 v*="rj(" 

560 GOSUB2180 

570 IFG-1THENA*="R » :GOTO590 
580 fi*="B" 

590 G -0 : PRINT"*®®®)" : IFX<10THENPRINTTAB<6:> '• -v-II' R* : 0OTO610 
600 PRINTTRB<5>" "X"M"R* 

610 IFXM2THEN630 

620 ONX+1GOTO660,690, 700.710.720 770 . 7 - 10 . 750 . 700 , 770 730 . 790.300 
630 I FX>23THEN650 

640 ONX-12G0T0810,820, 830,340.. 850.. 860, 870,880,890,900.910,920,930 
650 ONX-25GOTO940,950,960,970,980,990,1000,1010,1020•1030,1040 
660 PRINT"@W" PRINTTRB(17>X* 

670 GOSUB2000 

680 PRINTTRBC 17}V$ : GOTO1050 

690 K-l ; GOTO2480 

700 K>2 : GGTG2480 

710 K-3 : GOTO2480 

720 K-l : GOTO2490 

730 K-2:GOTO2490 

740 K-3 : GQTO2490 

750 K-l : GOTO2500 

760 K-2 '• GOTO2500 

770 K-3 1 GOTO2500 

780 K-l GGTO2510 

790 K-2 : GOTO2510 

800 K-3 GOTO2510 

810 K-l ; GGTO2520 

820 K-2 ; GOTO2520 

830 K-3 : GOTO2520 

840 K-l GOTO2530 

850 K-2 : GOTO2530 

860 K-3 GOTO2530 

870 K-l : GOTO2540 

880 K-2 GOTO2540 

890 K-3 : GOTO2540 

900 K-l GOTO2550 

910 K-2 : GOTG2550 

920 K-3 : GOTO2550 

930 K-l GOTO2560 

940 K=2 GOTO2560 

950 K-3 : GOTO2560 

960 K-l : GOTO2570 

970 K-2 GOTO2570 

980 K-3 : GOTO2570 

990 K-l ; GOTO2580 

1000 K-2 GOTO2580 

1010 K-3 GOTO2580 

1020 K-l GOTO2590 

1030 K-2 : GOTO2590 

1040 K-3 : GOTO2590 

1050 NEXT22 

1060 GOSUB2000 

1070 GOSUB2170 

1080 PRINT" E'IL TUO TURNO !” 

1090 GOSUB2O00 : GOSUB2170 

1100 INPUT"QUANTO BENRRO <*> HRI ".R5 

1110 GOSUB2170 

1120 INPUT"SHUMEROB OR SSERIES":B# 

1130 GOSUB2170 

1140 INPUT"QUANTO VUOI PUNTARE ";C 
1150 IFC<-R5THEN1200 

1160 GOSUB2170 PRINT"E' PIU' DI GUANTO HAI IN DEPOSITO '" GGSUB2000 

1170 GOSUB2170 :GOSUB2000 

1180 GOSUB2170-GOTOl140 

1190 OOSUB2130 OOSUB2170 

1200 I F'v'AL ( B* ) >0ANDVAL < B* X37THEN1790 

1210 IFB*="P"THEN1400 

1220 IFB*="I"THEN1450 

1230 IFB*="MA"THEN1500 

1240 IFBI-"PA"THEN1530 

1250 IFB*-"D1"ORB*="D2"ORB*="D3"THEN1570 
1260 IFB*="R"THEN1620 
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1270 IFB*="S"THEN1650 

1280 IFB*>"T"ANDB*<"TN" ANDRIGHT* < B*1 X> " J " THEN1310 
1290 G0SUB2170 1 PRINT"NON VALE , PROVA DI NUOVO "i ' GOSUB2000 
1300 GOSUB2170:GOTO1120 
1310 GOSUB2030 

1320 IF■:Bt="TA"ANDX<4> OR < B*="TB"ANDX>3ANDX<7>THEN1390 

1330 IF < B*=" TC" ANDX>6ANBX< 1010R< B*= "TD"ANDX>9ANBX< 13 > THEN 1390 

1340 IF < B*= " TE " ANDX> 12ANDX< 16>0R < B*= "TF " ANDX> 15ANDX< 19 > THEN 1390 

1350 IF <B*="TG"ANBX>18ANDX<22>0R< B*="TH"ANDX>21ANDX<25> THEN1390 

1 360 IF < B$="TI"ANDX>24ANDX<28>QR < B$* " TK "ANDX>27ANDX<31 >THEN 1390 

1370 IF(B*="TL"ANDX>30ANDX<34>OR<B*="TM"ANDX>33)THEN1390 

1380 GOTO1720 

1390 U=12GOTO!680 

1400 GOSUB2030 

1410 J=1 

1420 IFJ=XTHEN1720 

1430 J=J+2 : IFJC36THEN1420 

1440 GOTO1670 

1450 GOSUB2080 

1460 J=1 

1470 IFJ=XTHEN1670 

1480 J-J+2 : IFJC36THEN1470 

1490 GOTO1720 

1500 GOSUB20S0 

1510 IFX>0ANDX<19THEN1670 

1520 GOTO1720 

1530 GOSUB2080 

1540 IFX>0ANDX<19THEN1720 

1550 GOTO1670 

1560 END 

1570 GOSUB2080 

1580 IFB*="DI"ANPX>0ANDX<13THENW-2: GOTO1680 
1390 IFB*="D2"ANDX>12ANDX<25THENW=2 - GOTO1680 
1600 I FB*= " D3 '• ANDX>24THENU=2 : GOTO 1630 
1610 GOTO1720 
1620 GOSUB2080-G0SUB2130 
1630 IFG=1THENG=0GOTO1670 
1640 GOTO1720 
1650 GOSUB2080 

1660 0=0 ■ G0SUB2180 : I FG= 1 THENO=0 GOTO 1720 
1670 W=1 

1680 PRINT"«I«BH««"TAB<:6>X"»I ":GOSUB2160 

1690 PRINT" SHAI VINTO !■ TTTTAB<24> ;STR*<A5+W*C> 

1700 GOSUB2000 PRINT"TT' : GOSUB2170 

1710 A5=A5+W*C GOTO1120 

1720 PRINT ,, »IIi!iemia"TAB<:6>X"M " 

1730 GOSUB2160 

1740 PRINT" 3HAI PERSO !■ :m"TAB(24> ;STR*<A5-C>; " 

1750 A5=A5-C : GOSUB2000 

1760 G0SUB2170 

1770 IFA5>0THEN1120 

1780 GOTO1830 

1790 B=VAL(BS> 

1800 GOSUB2080 

1310 IFX=BTHENH=36 : GOTO1630 

1820 GOTO1720 

1830 PRINT "IMI" 

1840 PRINT" SEI" 

1850 PRINT 

1860 PRINT" SAL VERDE B" 

1870 PRINT PRINT PRINT 

1880 PRINT"SE VUOI DESIDERI CONTINUARE - PRENDI ALTRO DENARO" 

1390 PRINT"E PREMI UN TASTO PER CONTINUARE" 

1900 GETA* IFA*=""THEN1900 
1970 G0SUB2210 GOTO1070 
1990 END 

1990 PRINTTAB^IZ* 

2000 FORI*1T01000 NEXTI RETURN 
2010 PRINTTRB<28>UtGOTO1050 
2020 PR INTTAB < 15 > X* RETURN 
2030 PRINTTAB<15>V* GOTO2010 
2040 PRINTTAB<18>X* RETURN 



2050 PRINTTRB <13 > V* : G0T0281 0 
2060 PRINTTHBC21>X* RETURN 
2070 PRINTTRB(21)Vi GOTQ2010 
2080 X=INT<RNIK1>#37> 

2090 IFXO0THEHRETURN 

2094 PRINT"Sij!Mi!lia« TflBi: 6 >X' , »l " 

2096 GOSUB2160 

2100 PRINT" 3IL BRNCO VINCE !* TTT'TflB<24>;STR*<fi5~C);" " 

2105 R5=R5~C : PRINT"m" 

2110 IFR5<=0THENGOSUB2000:GOTQ1830 
2120 OOSUB2800 G0SUB2170 : GOTO1120 
2130 F0RJ=1T05 PRINT"3SEI BLOCCP^O 
2148 FORI“1TO70•NEXTI 

2150 PRINT"SEI BLOCCATO '" FORI = 1TO70 NEXTI NEXTJ RETURN 
2160 F0RI=1T015 PRINT NEXTI 

2170 PRINT"«eMi!l«i!lSiaia««e!«!li!l!tl!®iBiKi!jS"; FORE=0TO117PRINT" ", NEXTE: PRINT" " 
2175 PRINT"SIiafi^^BI^«i®!l»IittSiS>Ii>IaI(ltì" : RETURN 

2180 IFX=10RX=30RX«50RX=70RX=90RX“120RX=140RX=160RX=180RX=19THENG=1 RETURN 
2190 I FX =21 ORX=23ORX=25ORX=27ORX=30ORX=32ORX=34ORX=36THENG= 1 
2200 RETURN 
2210 PRINT"13" 

2220 PRINT" " 

2230 PRINT" IPI 0 IMI" 

2240 PRINT" _Q_IRI-Ifll" 

2250 PRINT" I—I — USI 31*1 21 33* INI" 

2260 PRINT" I I USI 41 SCSI 6 IQI" 

2270 PRINT" I—I—MEI 37*1 81 3?* IUI" 

2280 PRINT" I 1101111312* IEI" 

2290 PRINT" •• 

2300 PRINT" IPI131314*115 III" 

2310 PRINT" IRI 316*1 171 318* IMI" 

2320 PRINT" 111 319*1201 321* IPI" 

2330 PRINT" IRI22I 323*124 1.1" 

2340 PRINT" " 

2350 PRINT" INI 325*1261 327* IRI" 

2360 PRINT" I0I28I29I 330* 101 HRI IN" 

2370 PRINT" 111311332*133 IUI DEPOSITO *" 

2380 PRINT" IRI 334*1351 336* 101" 

2390 PRINT" E - " 

2400 PRINT" I 11.12.13. I |" 

2410 PRINT" - 

2420 PRINT 
2430 RETURN 

2440 ONKGOTO2450,2460,2470 
2450 OOSUB2020:GOSUB1990 GOTO2030 
2460 GOSUB2040 GOSUB1990 : GOTO2050 
2470 GOSUB2060:GOSUB1990 GOTO207O 
2480 PRINT "WWW" GOTO2600 
_2490 PRINT"*«HMW I :GOTO2600 
2500 PRINT" «ramar GOTO2600 
2510 PRINT"K«f»WHW" GOTO2440 
2520 PRINT"SMIKBM«WI«M" GOTO2440 
2530 PRINT"WQMWDCBlBaW" GOTO2440 
2540 PRINT"«ramrarami(ir 3OTO2440 
2550 PRINT"3H««ra«mrara)" GOTO2440 
2560 PRINT"" : GOTO2440 
2570 PRINT"»IKIBTO««MWM«««I«" OOTO2440 
2580 PRINT “ liflHDIIKIXDlIHIRDIIlIZRinDIIKIXZHl" : QOTO2440 
2590 PRINT"«KKCCICCWISiaii!lrIC>IK 1 GOTO2440 
2600 ONKOOTO2610,2620,2630 

2610 PRINTTRBC16)X* GOSUB1990 PRINTTRBC16)Vf:GOTO2010 
2620 PRINTTAB C19 > X*:GOSUB1990 PRINTTRB <19 > V* GOTO2010 
2630 PRINTTfiB(22>X*:GOSUB1990 : PRINTTRB<22)V* GOTO2010 

RERDV. 
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TOPI 


È un gioco per due giocatori. 

Ognuno controlla un topo: il primo giocatore usa i tasti A, W, D, X, il se¬ 
condo usa i tasti 4, 8, 6, 2. 

Il giocatore, che per primo urta i bordi, la traccia degli altri giocatori o la 
sua, perde. 


10 REM 3. TOPI 

£0 PRINT"^ REDOLE" : PRINT 

22 PRINT"OGNI GIOCRTORE PUÒ' MUOVERE IL SUO TOPO IN QUATTRO DIREZIONI." 

23 PRINT"LE CHIAVI A,U,D,X CONTROLLANO IL TOPO DI SINISTRA." 

24 PRINT"LE CHIAVI 4,8,6,2 CONTROLLANO IL TOPO DI DESTRA." 

25 PRINT"I TOPI NON DEVONO ATTRAVERSARE IL BORDO,LA PROPRIA TRACCIA 0 QUELLA" 

26 PRINT"DEGLI ALTRI." 

27 PRINT"IL GIOCO CONSISTE DI 6 ROUNDS." 

28 PRINT 

30 PRINT PRINT"PREMI QUALSIASI TASTO PER CONTINUARE" 

32 GETRf : IFRf=""THEN32 
50 PRINT"ri" 

65 GOTO1135 

68 REM START 

63 GOSUB4000: REM BORDER 

70 GO3UB3000 : REM KEV 

80 IFLf*= "W"THENLV«LV-1 : IFLV<0THENLV=0 

90 IFL*="D"THENLX=LX+1 : IFLX>39THENLX=39 

100 IFL*="A"THENLX=LX-1:IFLX<0THENLX=0 

110 IFL*="X"THENLY=LV+1 IFLV>24THENLV=24 

2O0 PL=1024+LV*40+LX'CL=55296+LV#40+LX 

205 IFPEEK < PL >032THEN1000 

210 POKEPL,87 ; POKECL,8 

220 GOSUB2000 

270 GOSUB3000 

280 IFR$="8"THENRV~RV-1 :IFRV<0THENRV=0 
290 IFR*="6"THENRX=RX+1:IFRX>39THENRX=39 
300 IFR*="4"THENRX=RX-1:IFRX<0THENRX=0 
310 IFR*="2"THENRV=RV+1:1FRV>24THENRV=24 
400 PR=1024+RV*40+RX'CR=55296+RV*40+RX 
405 I FPEEK CPR>032THEN 1810 
410 POKEPR,81 : POKECR,13 
420 GGSUB2008 
500 GOTO70 

1000 FORI = 1TO1000'NEXTI ^PRINT'TWTOIKWSMKailiflL GIOCATORE DI SINISTRA E' BLOCCATO" 
1005 ZR=ZR+1 : GOTO1100 
1010 ZL=ZL+1 

1012 FORI = 1T01000 NEXTI PRINT"ZI««tì(iItìBIl!l!«»*IIL GIOCATORE DI DESTRA E' BLOCCATO" 
1100 FORI-1TO2000 : NEXTI : PRINT".«»M*MW»*l«MPUNTEGGIO“ 

1120 PRINT"K»»l*»M»m»W»r ; PRINTZL, PRINT""; : PRINTZR : FORI = 1TO3000 : NEXTI 

1130 IFZL+ZR=6THEN1140 

1135 FORI=1TO500 : NEXTI ^GOTOSS 

1140 PRINT"M?»li|<»«Hit|iE' STATO UN BUON GIOCO !" 

1150 FORI=1TO3000 NEXTI 

1160 PRINT'^REMI QUALSIASI TASTO PER INIZIARE UN ALTRO GIOCO" 

1170 GETA*:IFA*=""TRENI 170 

1180 ZL=0:ZR=0■G0T068 

2000 FORI=1TQ50 ; NEXTI 

2010 RETURN 
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>«1»0 011ri* 

41 » ITn* irmi MURO 
•o. li i *-n* 1*1 TURN 
'l»0 I r r«» IV IMI II VUO 
11 io i t-n* l*l iiiikii 
1.0» imi 'K"IHtN33O0 
.0 I *-rt* RI M IMI 
imo ir A# "D"THCN3400 
> i. o I M TURN 

HOO Min ."2“THEN3500 
14**0 h • -n* RETURN 
r.oo ITU* >"4"THEN3600 
I-..0 h »-M» RETURN 
'«00 IFfl*O"9"THEM3700 
1620 Pt-flt RETURN 
3700 IFR$<>"6"THEN3800 
3720 R*=At RETURN 
3000 RETURN 
4O00 S=1024C=55296 
4040 FRI NT"71" V=0 

4050 FORH-0TO39:GOSUB5000:NEXTH:H=39 
4060 FORV-0TO23 : GOSUB5000 : NEXTV V=23 
4070 FORH=39TO0STEP-1 : GOSUB5000 : NEXTH:H=0 
4080 FORV=23TO0STEP-1 GOSUB5000 NEXTV 
4090 LX=1 LV=23 
4100 RX-38 : RV=23 
4110 L*="W" R*="8" 

4120 RETURN 

5000 POKE < S+V440+H),102 PGKE < C+V*40+H >,4 
5010 RETURN 

READY. 
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SUPER TRE 


In questo gioco vedrete sullo schermo un reticolo di 9 quadrati, numerati 
da 3 a 11. Ognuno di questi contiene altri 9 quadrati più piccoli, pure nume¬ 
rati da 3 a 11 (al posto del numero 7 compare il numero dei quadrati grandi 
in campo inverso). Sotto il campo di gioco sono mostrati due dadi. 

Scopo di questo gioco è di occupare tre quadrati piccoli disposti su una fi¬ 
la, su una colonna o in diagonale o di riuscire a possedere un totale di cinque 
quadrati piccoli qualsiasi e quindi di vincere il quadrato grande. Vince chi 
per primo occupa tre quadrati grandi in fila, colonna o diagonale o un totale 
di cinque quadrati grandi. 

Il dado stabilisce quale quadrato piccolo potete occupare. 

Per esempio, se il dado mostra un quattro e un sei, allora potete occupare 
qualsiasi dei quadrati piccoli numerati con 10 (eccetto quelli già occupati dal 
vostro avversario), o qualsiasi quadrato piccolo nel quadrato più grande de¬ 
nominato 10, ad eccezione del quadrato centrale. Per occupare un quadrato 
battete per primo il numero del quadrato grande, poi una virgola e poi il nu¬ 
mero del quadrato piccolo aN’interno del quadrato grande. Se il computer ti¬ 
ra il dado in modo tale che nessun gioco risulta possibile, allora prova una 
seconda volta e, se necessario, una terza. Dopo il terzo tentativo il gioco 
passa all’avversario. 

Numeri speciali: 

Se otterrete un dodici potrete occupare qualsiasi posizione libera sul cam¬ 
po di gioco. 

Se tirate un sette, qualsiasi posizione centrale libera; ovvero qualsiasi po¬ 
sizione nel quadrato grande denominato 7. 

Se otterrete un due (due uno) potrete cancellare qualsiasi posizione oc¬ 
cupata dall’avversario,, ad eccezione delle posizioni già completate nel qua¬ 
drato grande. 


5 REM 4. SUPER TRE 

10 DIMTJK12, U> :fl=INT<RNIK2>#2+l) 

20 PRINT'T*-B"; 


30 PRINT"I (3> <4) <5) I <3) <4) <5> I <3) <4> <3) MB", 

40 PRINT"I I ! MB"; 

50 PRINT-I <6> <839) <8> I <6> <849) <8> I <6> <859) <8> «9"; 

€0 PRINT"I I I MB"; 

70 PRINT'I 0X10X11) I <9X10X11) 10X10X11) MB"; 

80 PRINT"I-al 9", 

90 PRINT"I <3> <4> <5) l<3> <4) <5) I <3) <4> <5> MB". 

100 PRINT"I I I MB"; 

110 PRINT-I <6> <8SB) <8) l<6) < 879) <8> I <6> <S8B) <8) MB", 
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120 PRINT"I I I a!"; 

130 PRINT“I <9X10X11) l<9X10XU> 10X18X11) a !" ; 

140 PRINT"I-a 1" • 

150 PRINT"! <3> <4> <5> I <3> <4> <5> I (3> <4> <5T a!"; 

imi priiit"i i i a 

ITO PRINT"I <6> • a?*' <8> I <6X310® <8> I(6)(S11S) <8> as"; 

180 RRiNT"i i i sr; 

190 PRINT"! <9X10X11> 10X10X11) 10X10X11) a !" ; 

200 PRIHT" :!*■ . . ■ ..3F!", 

210 PRIMI" «HMMMMMMMMMMMMMMMMMS" . 

220 PRINT" r-n r-V 

230 PRINT"I II I" 

240 PRINT”I II I" 

250 PRINT"! Il I" 

260 PRINT" L "- J " 

270 PRINT"TTT»I"; 

280 X“INT<RND<1>#6+1) V=INT<RNB<1>*6+1>■Z=V+X-IFZ-2THEN1520 
290 F0RR=3T011 : IFTJXZ, R>=0THENM=0 GOTO340 
300 NEXTR 

310 F0RR-3TO11 IFTX<R,Z)=0THENM=0 O0TO340 
320 NEXTR M=M+1 : IFM=3THEN1210 
330 G0T0210 

340 ONXGOTO350,360.370/380/390,400 
350 PRINT"K»*"»»MI"; G0T0418 
360 PRINT"*lM»lt>'T*Mr'/ GOTO410 
370 PRINT'IMtMraitJIHNtmTMM" : ;GOTO410 
380 PRINT"#M*MeMMMHiT»MI"; GOTO410 
390 PRINT"#m)B«l»MHIM0K'T>*W" ; GOTO410 
400 PRINT"***MBM«l***:T9»r , 

410 B=B+1:IFB=2THENB=0 GOTO430 

420 ONVGOTO350,360,370,380,390,400 

430 PRINTTFIB< 13> " a)MGC8T0RE"fl"K'' IL TUO TURNO" 

448 INPUT ">*»►»*»*»»***' IMHI'IM 

450 IFZ=2THEN1270 

460 IFZ»7THEN490 

478 IFZ=12THEN500 

480 IFJ-7THEH1260 

490 IFIOZRNBJOZTHEN1260 

500 IFK3ORJ<3THEN1260 

510 IFI>110RJ>11THEN1260 

520 IFTX< I, JX30THEN1260 

530 PRINT"*»*!" . ONI-2GOTO540,670.680,690,700,710,720,730,740 

548 ONJ-2Q0T0640,550,560,570,750,580,590,600,610 

550 PRINTSPC < 4)i:GOTO640 

560 PRINTSPC<8X GOTO640 

570 PRINT"MB";GOTO640 

580 PRINT"MB",3PC<8), GOTO640 

590 PRINT"MMMB", :GOTO640 

600 PRINT "MMMB", SPC<3> ; G0T0620 

610 PRINT"MBMB";SPC(7>; 

620 IFR=1THENPRINT"5M" GOTO660 
630 PRINT" V»" ; G0T0660 
640 I FR= 1THENPRINT"S" GOTO660 
650 PRINT"*," 

660 TX<I,J>=R+4 OOTO790 

670 PRINTSPC<13>; GOTO540 

680 PRINTSPC<26); OOTO540 

690 PRINT"MMMMMtì" ; GOTO540 

700 PRINT"MMMHMB";SPC(13), GOTO540 

710 PRINT"KMMMMB" ; SPC<26); : GOTO540 

720 PRINT":MMMMMMMWMMMB" ; GOTO540 

730 PRINT " MMMMBMMMMMMB", 3PC< 13) ; : GOTO540 

740 PRINT "MMMMMMMMMMMB" ,3PC<26>; GOTO540 

750 PRINT"MW»I"; IFI>9RNDR=lTHENPRINT"i8ir GOTO660 

760 IFI>9THENPRINT" V," GOTO660 

770 IFR=1THENPRINT"MS" GOTO660 

780 PRINT"MV GOTO660 

790 F0RR=3T011 IFTXCI,RX5THENL=L+1 

'800 NEXTR : IFL=5THENL=0 ' GOTQ940 

810 L=0FORR=3TO11 : IFTX<I,R)=6THENL=L+1 

320 NEXTR : IFL-5THENl_=0 GOTO940 

830 L=0 : C»3 

840 F0RR=CT0C+2Q=Q+TX<I,R) NEXTR G0SUB910 
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"O C=C+3:IFC-12THENC=2 : OOTO870 
n<;o G0T0848 

070 OC+1 IFC=6THEN890 

" FORR=CTOC+6STEP3:Q=Q+T5iCI,R> :NEXTR:GOSUB910 :GOTO870 
■ io F0RR=3T011STEP4 ■ Q=Q+TJi(I, R) : NEXTR' GOSUB910 
'00 F0RR-5T09STEP2' Q=Q+T7.C I ,R>: NEXTR :GOSUB310 : GOTO 1210 
'IO IFQ=130RQ-18THEN940 
920 Q=0 
' >0 RETURN 
'40 PRINT"S®#I" ; 


'7/0 OHI-2GOTO1840/960/970/980,990.. 1000,1010.1020, 1030 
'CO PRINTSPC<13);'GOTO1040 
'70 PRINTSPC<26>;'GOTO1040 
' '00 PRI NT " MKKKttW" : GOTO 1040 


‘ >0 PRINT":«H®H!WW" ; SPC<13>; ' GOTO 1040 

IO0C PRiNT"isMWBro®a"; spc<26>; GOTO 1040 

1010 PRINT"aRMBXai5lHXaEl!!XBlS]'' ; I GOTO 1040 


1020 pr i nt" mnmawawui" ; spc< i s> j 

1030 PRINT"M0H«H««K0HH8" ;SPC<26> : 
1040 IFFI=2THEN1070 


'GOTO1040 


1030 F0RR-1T05 : FORV=1T012 
1060 TX<I,2>=5F0RR=3T011 
1070 FORR=1T05'FORV=1T012 
1080 TX<I,2)=6'F0RR=3T011 
1090 NEXTR'IFQ=5THEN1690 
1100 GOTO1130 


PRINT "38" ; 'NEXTV'PRINT-IBBBBBiBBBBBKl"; NEXTR 
TX(I,R)=fl+4'NEXTR'G0T01110 

PRINT"V; :NEXTV'PRINT"IBBBBBBBBBBBB9"; 'NEXTR 

T‘/.< I, R)=R+4 ' NEXTR ' F0RR«3T011 ' IFTXCR, 2)-6THENQ«Q+l 


1110 FORR=3T011 ' IFTZ<R,2>=5THENQ*G!+1 
1120 NEXTR'IFQ=5THEN1690 
1130 Q=3'V=0 

1 140 F0RR=QT0Q+2 V=V+TJi<R, 2) ' NEXTR ' G0SUB1240 
1150 Q=Q+3'IFQ=12THENQ=2'GOTO1170 
1160 GOTO1140 
1170 Q=Q+1'IFQ-6THEN1190 

1130 F0RR*QT0Q+6STEF’3 ' V-V+TX<R, 2> NEXTR ' GOSUB1240 OOTOl 170 

1190 F0RR=3T011STEP4'V=V+TXCR,2>'NEXTR'GOSUB1240 

1200 F0RR=5T09STEP2 V=V+TX<R,2)'NEXTR:GOSUB1240 

1210 IFZ-2THEN210 

1220 R=PI+1 ' IFfl=3THENR=l 

1230 PR I NT ” .TT ' G0T0210 

1240 IFV=150RV»18THEN1690 

1250 V»0:RETURN 


1260 RRINTSPC<13>"VI0LR2 DI REGOLE"lBB***BBBBSa!EiBI" 

1265 FORTI*ITO 1000 NEXTT1 

1267 PRINTSPCC13)" l8#«I***BH«iB*®l»;!^BrTTn ,, GOTO430 

1270 X FI <30RJ<30R I > 11 ORJ> 11THEN1260 

1280 IFTX<I,2)O0THEN1260 

1290 IFTX<I,JO-0THEN12S0 

1300 IFR=1RNDTX<I,T)*5THEN1260 

1310 IFfi*2RNDTX< I.. J>»6THEN1260 

1320 PRINT"a»»l"; 

1330 QHI-2GOTO1340,1430,1440,1450,1460,1470,1480,1490,1500 

1340 ONJ-2GOTO1350,1360,1370,1380,1590,1390,1400.1410,1420 

1350 PRINT"3";'GOTO1510 

1360 PRINTSPC<4)"4";'GOTO1510 

1370 PRINTSPC< 8 > “ 5 " ;'GOTO1510 

1380 PRINT"MMS";'GOTO1510 


1390 F'RINT"W111" SF'C<8) "8" ; OOTO1510 
1400 PRINT' , :>XS««9"; GOTO 1510 
1410 PRINT":nMIBI!#*»!10"j 'OOTO1510 


1420 PRINT"MfflHflr;SPCC7)" 11"; GOTO1510 

1430 PRIHTSPC<13);'GOTO1340 

1440 PRINTSPC<26>; GOTO1340 

1450 PRINT"WHMKWW" ; 'GOTO1340 

1460 PRINT"MMM«H9";3PC<13)J GOTO 1340 

1470 PRINT"MSMBM«";SPC<26>; 00T01340 

1480 PRINT^aaatìaWHMMS" ; GOTO 1340 

1490 pr i nt" aaaaaaaaaaarr, spc< i 3), : gotoi340 
1500 print" aaaaaaaaaaaer ■ spc<26 > : 'GOTO1340 
1510 TXd, J)=0'GOTO210 
1520 IFR=1THEND=6'OOTOl540 


1530 D=5 


1540 F0RR=3T0U'F0RV-3T011'IFTX<R,2)=5ORTX<R,2)=6THEN1570 
1550 IFTX<R,V)=DTHENM=@'GOTO340 
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1560 NEXTV 

1570 NEXTR : N=M+1 : I FM=3THEN 1210 
1580 GOTO210 

1590 PRINT”Jft**r, ONI-2GOTO1600, 1610,1620,1630, 1640, 1650.1660,1670, 1680 

1600 PRINT" < aSB;'"; GOTO 1510 

1610 PRINT" <84H>"; :GOTO1510 

1620 PRINT" G0T01510 

1630 PRINT" <a69>"; : GOTO1510 

1640 PRINT" <a7B>", GOTO1510 

1650 PRINT" <S3S>"; GOTO1510 

1660 PRINT" <SBB>"; G0T01510 

1670 PRINT" <ai0H>", GOTO1510 

1630 PRINT” <S11B>", GOTOI510 

1690 PRINT”cWHPWNrWi'lBMFlfW"W«IN!'lP] 11 

1700 PRINT” a VINCE IL GIOCATORE "A" B" 

READV. 
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LOTTO 


Questo programma potrà esservi di aiuto quando giocherete alla lotteria. 
Il programma seleziona 6 numeri su 49 possibili. Per passare ad una nuo¬ 
va estrazione premete il tasto N. 


5 REM 3. GIOCO DEL LOTTO 


10 

T0$= 

'1 

1 

1 

1 

1 

1 

1 

I" 

20 

T1 %— 

J i 

"1 

"1 

1 

1 

1 

1 1 

30 

T2f 35 

M 01 

102 

103 

104 

105 

106 

10 ? 

r 

40 

T3*- 

'I 08 

109 

1 10 

Ili 

112 

1 13 

1 14 

r 

50 

T4$= 

'I 13 

116 

1 17 

1 13 

119 

120 

121 

i" 

60 

T3Ì= 

'1 22 

123 

124 

125 

126 

12 ? 

128 

r 

70 

T 6*= 

'1 29 

130 

131 

132 

133 

134 

135 

r 

30 

T?*= 

■1 36 

137 

138 

139 

140 

141 

142 

i" 

90 

T8*= 

•1 43 

144 

143 

146 

14? 

148 

149 

i" 

100 T9I 

*"i_1 _ 

_1_ 

_!_ 

_|_ 

_1_ 


_i 


110 S*“" 

120 FRI NT "IT 

130 PRINT"M"S*+T1* 

140 PRINTS*+T2* 

130 PRINTS*+T 8 * 

160 PRINTS*+T1* 

170 PRINTS*+T3* 

130 PRINTS*+T0» 

130 PRINTS*+T1* 

200 PRINTS*+T4* 

210 PRINTS*+T0t 
220 PRINTS*+T1* 

230 PRINTS*+T5* 

240 PRINTS#+T0* 

250 PRINTSS+Tl* 

260 PRINTSÌ+T 6 * 

27© PRINTS*+T0* 

230 PRINT:3*+T1* 

230 PRINTS*+T7* 

300 PRINTS*+T0* 

310 PRIHTS*+T1# 

320 PRINTS*+T 8 * 

330 PRINT3*+T3* 

340 PRINT"M PER CONTINUORE PREMI 'N' <-NUOVO)" 
350 PRINT" PER FINIRE PREMI 'F' <=FINE)“ 

360 X<0>=99 
370 F0RZ=1T06 
3S0 N=0 

390 X<Z>-INT<RND<1>#49> 

400 FORV-0TOZ-1 

410 IFX<Z>=X<V>THENW=1 

420 HEXTV 

430 IFW-1THEN380 

440 XV=120*INT<XCZ>/7) 

450 XH-4#<X<Z>-7*INT<X<Z>/?>> 

460 XX-1030+XV+XH:XC-35302+XV+XH 
470 POKEXX,160:POKEXC,10 
430 POKEXX+1,160 POKEXC+1,10 
430 POKEXX+2,160 :POKEXC+2,10 
500 POKEXX+3,160 :POKEXC+3,10 
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3!0 POKEXX-Mfl. 160 P0KE«O4« le 
520 P9KEXX+43•!60 POKEXC+43.IO 
330 POXEXX+SQ :C0 P0K.EXC+S0. 10 
'«10 POKEXX*61 , IfA P0KEXO8! IO 
350 P0KEXX*«2. :eo POKEXC+82 10 
-«•*1 P0KEXX»e3.160 P0KEXO83 10 
5® 0*PEEK<XX*41 > 

39® POKEXX-M 1,3*128 

600 D-PEEK<XX*4Z. 

SIO P0kE>.>:+42.B+128 
620 NEXT2 

630 CCTflf lPR*»""THEM63e i 
«40 [Ffl*-"N"THEH130 
650 END 


RE0PV. 


16 




COLLISIONE 


Questo è un gioco simile al biliardo. 

Sullo schermo compare un tavolo da gioco con due palle che voi dovete 
colpire con una terza palla. 

L’unica cosa che dovete definire è l’angolo (da 0 a 360), che individua la 
direzione in cui desiderate spedire la palla. 


100 REM 6. COLLISIONE 

110 REM UN OIOCO SIMILE AL BILIARDO 

120 FRINT"3" 

400 GOSUB1000 
410 GOSUB9000 
420 GOSUB1300 

300 P=P+1:IFP>NPTHENP=1: 1 = 1 + 1 

310 IFI>NITHEN7500 

320 GOSUB2000 

530 GOSUB2500 

340 GOSUB3000 

330 GOSUB3300 

360 GOSUB4000 

370 OOSUB4300 

700 GOSUB3000 

710 GOSUB5300 

720 IFNB>=3THENGOSUB6000:GOTO300 
730 GOSUB6300 

740 IFCU>=3THENGOSUB6000:GOTO500 
730 GQTO700 

1000 RX=0•DX=0:RV=0:BV=0:TX=0:TV-0:XR=0:YU=0■CU=0:IX=0:IV=0: XI=0 
1010 V1“0 X2=0:V2=0 R=0 B=0:NB=0: I=0 S1=0 :S2=0'P=2 EIMP* < 2 >: RETURN 
1300 GOSUB8800:GOSUB8400•PRINT" aCOLLISIONEH":PRINT 

1310 INPUT"QUANTI GIOCATORI <1/2>";NP 
1320 IFNP<1ORNP>2THEN1310 

1530 IFNP-1THENINPUT"COME TI CHIAMI ";P*<1> : GOTO1360 
1340 INPUT"NOME BEL GIOCATORE N.1".;P*<1> 

1330 INPUT"NOME BEL GIOCATORE N.2";P*<2> 

1360 INPUT"QUANTI TIRI ";NI 
1570 NX=39 : NV=18'3R=.363 
1390 K=RND<TI> XR-NX-2 
1600 VU=NV-2: RETURN 
2000 GOSUB88O0 

2010 GOSUB8400 FRINT"PREPARATI ";p#<p>:PRINT;PRINT 
2020 GOSUBS900:GOSUB8800 
2030 GOSUB8400 ; FRI NT • PRINT 

2040 FRI NT "PROVA".: I; "DI "INI, "TIRA, " a" ;P#<P> ; "B" PRINT 

2030 PRINT"PUNTI ";P*<1> J";"; SI; ; IFNP=2THENPRINT" ";p* C 2>;";";S2 

2060 RETURN 

2300 GOSUB8600 

2510 A=X;FORK=lTONX : PRINT"a"; ;GOSUB8100 = NEXTK:A=L:B=U;C=X 
2320 FORK= 1TONV-1 GOSUB8300 ; NEXTK ; GOSUB8600 ; A=IJ B=X ; C=L 
2530 FORK-1TONV-1:OOSUB8300 : NEXTK;A=X FORK=lTONX-l:GOSI IBS100 
2540 NEXTK PRINT”*", RETURN 

3000 X1=INT<RND < 1 ) # <NX-3> >+1 ; V1 = I NTCRNB< I >* < NV-3> > +2 
3010 X2= I NT C RNB <1>*< NX-3) )+1 :V2=I NT < RNB <1)*< NV-3 )) +2 
3020 K=ABS<X1-X2):Q=ABS<VI-V2> 

3030 IFK<3ANBQ<3THEN3010 

3040 XB= INT< RND< 1 )*<NX-4 ) ) +2 ; VB= I NT •: RNB<1>*<NV-4> > +2 
3050 KXX1-XB) T2+CV1-VB) T2 ' IFK<4THEN3040 
3060 K -< X2-XB> T2+ <1 V2-VB > T2 : IFKC4THEN3840 
3070 RETURN 
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3500 LX=X1 LV=V1 OOSUB7000 ■ fi=OH E:=OH GOSUB8200 
3310 R-L B=L C=D GOSUB8300:R=OH;B=OH GOSUB8200 
3320 LX-X2 LV=V2 - GOSUB7000 : fi=OH : B=OH : GOSIJBS200 
3330 fì=L B=L : C=D : GOSUB8300 - fi-OH B=OH : GOSUB8200 
3540 LX-XB LV=VB GOSUB7000 fl=fiS G0SUB8100 RETURN 
4000 GOSUB8400 

4010 INPUT"8NG0L0 (0-3603 ";G G=G*ir/130 
4020 DX=C0S(G3■DV=SIN(G):IFSR>1THENDX=DX/SR 
4030 IFSROTHENBV=BV*SR 

4040 IFfiBS(DXX.3fiHBRBS<BVX.3THENDX=BX*2 DV=DV*2'GOTO4040 
4030 RETURN 

4500 LX-XB:LV=VB:GOSUB7000 

4310 HB=0:CU=0 IX«XB : IV=VB : RX=*XB+.49 RV=YB+.49 
4520 GOSUB8900:fi=SP■B-L GOSUB8200 
4530 RETURN 

5000 RX=RX+DX:RV=RV+DY 
3010 TX=INT(RX> TV=INT(RV) 

5020 R=N'B=N:IFTX>IXTHENfi=R GOTO5040 

3030 IFTX<IXTHENfì=L 

5040 IFTV>IVTHENB=U:GOTO5060 

5050 IFTV<IVTHENB=B 

3060 GOSUB8200'IX-TX : IV*TV 

3070 R=RS B-L GOSIJB8200 

3080 fi=SP B=L GOSUB8200 

5030 RETURN 

3300 IFNBMTHEN3340 

5510 IFIX-CX20RIX>X2+1 OR I V<V2-1 OR I V>V2THEN3340 
3520 fì=PL ■ B=L 
3330 GOSUB8200 NB=NB+2 
3340 IFNB-1ORNB-3THEN3570 

5350 IFIX<X1ORIX3X1+1ORIV<V1-1ORIY>V1THEN3570 

3560 fl=PL B=L GOSUB8200 NB=NB+1 

5570 RETURN 

6000 GOSUB8400 

6010 PRINT 

6020 IFNB<3THENPRINT"5»IIENTE PUNTI ' ■", GOTO6070 

6030 SC=4-fiBS(CU-4VPRINT"OUESTO TIRO VRLE '•. SC : IFP=1THENS1«=S1 +SC 
6040 IFP=2THENS2“S2*SC 

6030 PRINT PRINT PRINT"SCORE ",P#<1>," ",S1 
6060 IFNP-2THENPRINT" " ;P*<2>S2 

6070 F0RQ-1T03 OOSUB8900 NEXTQ RETURN 
6500 IFIX>!RNIUX<XRTHEN6530 
6510 CU=CU+1 

6320 R=BL:GOSUB810O DX=BX*-1 

6530 IFI V> 1RNBI V<VUTHEN6530 

6540 CU-CU+1 R-BL GOSUBS100 DV-BVt-1 

6350 RETURN 

7000 GOSUB8600 : R*R 

7010 FORK=lTOLX GOSUB81O0 NEXTK 

7020 R=U ' FORK-1TOLV : GOSUB81O0 NEXTK 

7030 RETURN 

7300 PRINT "IX" FINITO !" END 
8100 PRINTCHRt(fi), 

8110 RETURN 

8200 PRINTCHRt< FU,CHR*< B U 
8210 RETURN 

8300 PRINTCHRt(R>,CHR*(B>-CHPt(C), 

8310 RETURN 
8400 0=19 
3410 GOSUB8100 
8420 RETURN 
8600 GOSUBS400 
8610 fi-17 

8620 F0RK=1T024 GOSUBS108 NEXTK 

8630 RETURN 

8800 fi—147 

8810 G0SUB8108 

8820 RETURN 

8900 FORK=1TO1000 : NEXTK 
8310 RETURN 

3000 R=29L=157 0=145 D~l? 

3010 X=32 : QH=215 : fiS-209‘SP-32 : BL-0 N=0 PL=43 
3020 RETURN 
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FLIP-FLOP 


In questo gioco cercate di prendere una pietra al vostro avversario e di 
tarla diventare vostra. Attenzione non potete scambiarvi una pietra che è già 
stata scambiata dal vostro avversario. 

Vince chi per primo forma una fila o una colonna completa. 


3 REM 7. FLIP-FLOP 

10 P0KE39468,12 : DIMAXCS, 8), BX<8,8), RW<8) , RSO) 

20 Z-213 'T*':0>»" Jl" :T*<1) = " II" 'T=80 
30 F0RI = 1T08: A*a>=CHR*(I+64> 

40 F0RJ=1T08 

30 IF<I+J)AND1THENA*<I,J)=-l:GOTO70 
60 AX< I,J)=0 
70 NEXT : NEXT 
80 GOSUB10000 

90 PRIHT"0"TPBO>"F L I P - F L 0 PM» 

100 V*- 1 ' I I I I I I I I I" :Z««" I 1 +- i - 4 - 4- 1" 

110 PRINTTABC10)"1 2345678" 

120 PRINTTRBO)" r—ì—i—i—i—r—i—i—i " 

130 FORI-ITO?:PRINTTABC8)A$<I )V# :PRINTTAB<9)Z*:NEXT 

140 PRINTTAB<8)A*<I)Y*PRINTTAB<9)" 1 . 1 1 ■■■ • " 

150 GOSUB300 : IFT$="S"THEN240 

170 S-=INT<8#RNDCTI)+1):U=INT<8#RNIKTI> + 1>:IFRXCW,S)=0THEH170 

180 GOTO200 

190 GOTO6000 

200 IFU=WRNDV-STHEN190 

210 PRINTTAB<25)"JflIO SCELGO “;R*<M);RIGHT*<STR*<S)/1) : U=W-V=S 
220 GOSUB600 : GOSUB900:XT=XT+1:GOSUB500 
230 IFSP=10RCB=1THENGE=1 : GOTO1100 
240 GOSUB700 

250 I FAX <M, S ) «-1THENPRI NT •' TD" ' G0T0240 
260 IFU“WflNDV*STHENPRINT"rm" : GOTO240 
270 U=U:V=S 

230 GOSUB600'GOSUB900:XT=XT+1 GOSUB500 
290 IFSP=1ORCB=1THENGE=0 : GOTO1000 
300 GOTO190 

499 REM #*# PRINT-ROUTINE 

300 PRINT"S5SWriR0 N. MNMHHTXT 

510 FORI«1TO8:PRINTTRB<10) ; = W3i< I )=0 S5i< I )«0 

320 FORJ- 1T03 : PRINTCHR*<Z+6#RX< I, J ) ) " II" ; EX< I, J >=AX<I, J) ■ NEXT 
530 PRINT'PRINT'NEXT: RETURN 

599 REM ##* INVERS-ROUTINE 

600 F0RI=lTO8:RJiCI,S)=NOT<R5S<I,S>> 

610 AX<W, I)=NOT<AX<U, I)> U4EXT 

620 RX < U, S ) =NOT <RX< Ul , S ) ) : RETURN 

699 REM *** SCELTA DEL GIOCATORE 

700 PRINT"MTU SCEGLI ? MI"; 

710 GOSUB800 

720 IFT*<CHR* < 65)ORT*>CHR* C 72)THEN710 
730 W“ASC<T*)-64 PRINTT*; 

740 DOSUB800 

750 IFT*=CHR4< 20) THENPRI NT "Il MI" ; : GOTO? 10 
760 IFT*<CHR* < 49)ORT*>CHR$ < 56 >THEN740 

770 PRINTT*; S=VAL<T*> IFAXCW, S)=~1THENPRINT".TT :QOTO700 

780 IFU=WANDV=STHENPRINT"m" :GOTO?00 

790 PRINTTABC37)” "-RETURN 

799 REM *** INPUT <SCELTA DEL GIOCATORE) 

.300 OPEN 1,0.. 6 

810 GETT* : PRINTTf(ABSCX)); : FORI*1TOT : NEXT : X=NOT<X):IFTt=""THEN810 
820 A=ASCCTt):CLOSE1: RETURN 
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399 REM *** CALCOLO DEL PUNTEGGIO 
9G0 FORI«1TQ8:FORJ=1T08 
910 MX<I>aMX<I)+AXCI/J> 

920 SX<I>=SX<I>+AZU,i:> 

930 NEXT 

940 ifwxc i>=- sorsx< i>=- sthensp=i 
950 I FUZ< I ) =0ORS2 ( I > =0THENCE= 1 
960 MEXT RETURN 

1000 PRINT"IHAI VINTO !!! GIOCHI ANCORA ? <SXN> 

1010 GOTO1110 

1100 PRINT"*WO VINTO !!! GIOCHI ANCORA ? <S/N> 

1110 GETT* IFT*=""THEN1110 

1120 IFT*«"S"THENCLR : PRINT"IMMI SI " GOTO10 

1130 IFT#0"N"THEN1 110 

1140 PRINT"nasWW" END 

6000 REM **♦ CALCOLO DELLE SCELTE 

6010 FORI-1T08FORJ-1TO8 

6040 ZW<I>“ZW<I>+BX<I>J> 

6050 zs<i>=zs<i>+biì<,j, i> 

6060 NEXT : NEXT : UG=0 : SG=0 
6070 Z7«0 : Z1 =0 FORI • 1T08 
6080 IFZWCI>=-7THENZ7=Z7+1 
6090 IFZS<I>=-7THENZ7=Z7+1 
6100 IFZWa>=-lTHENZl=Zl + l UG-I 
6110 IFZS<I>=-1THENZ1-Z1+1 SG-I 
6120 ZS<n-0:ZW<I>-0 
6130 NEXT IFZ750ORZ1>0THEN6300 

6140 U=INT<8*RND<TI> + 1> S=INTC8*RND<TI> + 1> : IFBXIW.. S >“0THEN6140 
6150 F0RI-1T08 BXa,S)=NOT(BXa,S>) 

6160 BX<M, I>-NOT<BJXW, I>> NEXT 
6170 B:'XW,S>=NOT<B:-XU,S>> 

6180 FORI=1T08FORJ=1T03 
6190 zw<i>=zu<i>+bx<i,j> 

6200 zs<i>-zs<n+Bx<j, n 

6210 NEXT NEXT 
6220 Z7-0 Z1=>0 FORICIT08 
6230 IFZW(I> <«-7THENZ7=Z7+1 
6240 IFZS<IX*-7THENZ7=Z7+1 
6230 IFZW<I>=-1THENZ1-Z1+1 
6260 IFZS<I>=-1THENZ1=ZH-1 

6270 zsa )-0 zwcn-0 next 

6281 F0RI-1TO8 BX< I, S)-NOT<BXU ,S> > 

6282 BX(W/ I )=NOT(BXIW, I ) > NEXT 

6283 BX<W,S>-NOT<BX<W,S>> 

6284 IFZ7O0THEN614O 
6290 GOTO200 

6300 IFZ1=0THEN6140 

6400 IFWG—0THEN6450 

6410 F0RI«1T08: IFBXCWG, I>—1THENSG=I 

6415 NEXT 

6420 F0RI-1T08 IFI=WGTHEN6440 
6430 IFBX <1, SG > =- ! THENW= 1 S-SG 
6440 NEXT GOTO200 

6450 F0RI-1T08 : IFBX<I,SQ> —1THENWG=I 
6435 NEXT 

6460 FORI»1T08 IFI=SGTHEN6480 
6470 IFSXCWG, I> —1THENW-WGS»! 

6480 NEXT : GOTO200 

9999 REM *** TITOLI 

10000 

10010 PRINTTABCS)";* F L I P - F L 0 P Si" 

10020 PRINTTABC6) - -- - 

10030 PRINT 'SKWJJN GIOCO DI TATTICA CONTRO IL” 

10040 PRINT" ^COMPUTER" 

10050 PRINT"MHOCONOSCI LE REGOLE ? <S/N>" 

10051 GETT» IFT t=" "THEN18051 

10052 IFT*="N"THEN30000 

10053 IFTtO"S"THEN 10051 

10055 PRINT"MMMTU HAI LE PIETRE BIANCHE <•>" 

10060 PRINT "«SPREMI UH TASTO QUANDO SEI PRONTI?" 

10061 GETT* IFTt=""THEN18061 

10062 RETURN 

29999 REM ##* REGOLE 


20 



1(1000 PRI NT " H" TAB < 12 ) " REGOLE " 

10010 PRINT"MMOONI GIOCRTORE (UNO SEI TU, L'ALTRO" 

I0O20 PR I NT " E ' IL COMPUTER) CERCO DI CAMBI PIRE LE” 

I0C25 PRINT"PIETRE DELL'AVVERSARI0 IN PIETRE DEL" 

10030 PRI NT "PROPRIO COLORE" 

I004O PR I NT " MDIJR ANTE IL CAMBIO TUTTE LE PIETRE" 

IO050 PRINT"NELLA FILA ORIZZONTALE E VERTICALE" 

10060 PRINT"CORRISPONDENTI A QUELLA CAMBIATA" 

I0O70 PRINT"SONO PURE CAMBIATE” 

10080 PRINT"M < • —> O E O —> • > 

30090 PRINTTAB < 31VMKMS-" 

10100 PRINTTAB < 30)"< a?ETURNH>" 

10110 GETT*:IFT*=""THEN30110 
30120 PRINT"DESEMPI0 

10130 PRINT"SECCO LA PIETRA CAMBIATA (INDICATA DALLA" 
10140 PRINT"FRECCIA) E LE ATRE DELLE CORRISPONDENTI" 
30142 PRINT"FILE ORIZZONTALE E VERTICALESM" 

30145 PRINTTAB<10)"4"TAB<25>"4" 

<0150 PRINTTAB<10)"•"TAB<25)"O" 

10160 PRINTTABC10)"•"TAB(25)"0" 

30170 PRINTTAB<10>"0"TAB<25)"•" 

30180 PRINTTAB< 10)"0"TAB<25> 

30190 PRI NTTAB<6> "EDMDMOt"TAB<21 ) "E«00«00*0" 

30200 PRINTTAB<9> ""10"TAB<24) "~»" 

30210 PRIHTTAB<S)'V 0"TAB<23)'V •" 

30220 PRINTTAB(6)"E4 •"TAB<21)"E4 O" 

30230 PRINT 
30240 PRINT 
30250 PRINT 

30260 PRINTTAB<31)"W_" 

30270 PRINTTAB<30)"<SRETURNS>" 

30280 GETT*:IFT*=“"THEN30280 

30300 PRINT"n>ISlJNA PIETRA CAMBIATA DALL'AVVERSARIO NON" 
30310 PRI NT "PUÒ'’ PI LA ESSERE CAMBIATA" 

30320 PRINT 
30330 PRINT 

30340 PRINT"M!WINCE CHI RIESCE PER PRIMO A FORMARE" 
30350 PRINT"SJJNA LINEA RETTA SIA IN ORIZZONTALE" 

30360 PRINT"MSIA IN VERTICALE" 

30370 PRINT 
30380 PRINT 
30390 PRINT 

30400 PRINTTAB(31)"MS_" 

30410 PR INTTAB< 30> “ < 3J?ETURNE> " 

30420 GETTt-IFTt=""THEN30420 
30430 GOTO10000 


READV. 





LABIRINTO 


Scopo del gioco è di muoversi nel labirinto il più a lungo possibile senza 
subire una collisione. 

I tasti di controllo sono 8, 2, 4, 6. 

I tasti 8 e 2 o 4 e 6 non possono essere usati in successione (se provate 
vedrete che non funzioneranno). 


•• REM 8. LABIRINTO 

10 PRI NT " 73 LfìBIRINT 0" 

11 FRINT" =================" 

12 FRINT:FRINT"DEVI CERCARE DI MUOVERTI NEL LABIRINTO" 

13 FRI NT "IL PIU'” A LUNGO POSSIBILE SENZA COLLISIONI" FRI NT 

14 FRINT"TASTO 8 : SU" 

15 FRINT"TASTO 2= GIU"" 


16 FRINT"TASTO 4: SINISTRA" 

17 FRINT"TASTO 6 DESTRA" 

18 FRINT 

ZO FRINT"NON PUOI USARE I TASTI 8 , 2 , 4 , 6" 
22 FRI NT "IN SEQUENZA (NON LAVORERANNO" 


25 FRINT 


3© FRINT"FREMI QUALUNQUE TASTO PER CONTINUARE" 
35 SETA* IFA$=""THEN35 


40 B-1024 BC=55296 


45 U$-"2" 0**"8" : L$="4":Rf*"6" 

50 G®100 
100 FRI NT "ZI" 

110 FORV»1T024 :FORI*0TQ7 
120 X* IN T < < RND < 1 > +1 > *5 > 

130 PGKEB+40#V+X .• 42 ■ POKEBC+40*Y+X, 13 : NEXT : NEXT 
150 FORI«0T010 : GETPf NEXT 

180 X=INT<RNB<1>*38> 

131 V*INT < RND(1> *22 > +1 

182 Z*B+40*V+X IFPEEK<Z>032THEN180 

183 POKEZ,31 :POKEBC+40*V+X,1 

195 GETPt 

196 IFP$OU$ANDP*O0*ANDP$OL*ANDP*OR*THEN195 

197 T*T I : P A$* " " : GOT0210 
200 GETP* 

210 I FP$*IJ*ANBPA*O0*THENPA**P$ VI * 1 : XI -0 

211 IFP$*R$ANBPA$OL$THENPA$*P*: VI *0 : XI* 1 

212 IFP$*L$ANDPR$OR$THENPA**P$ VI=0 : XI=~1 

213 IFP$*OSANDPA$OU*THENPR*=P$ : VI =-1 : XI*0 
23© POKEZ,SI :X*X+XI V-V+VI 

235 0*0*0.96 X0*TI+0 

236 IFX0>TITHEN236 

240 IFX<0ORX>39ORV<0ORV>24THEN300 
250 Z»B+40*V+X:ZC*BC+40*V+X 

260 IFFEEK(Z>*32THENP0KEZ,SI PQKEZC,1 :GOTO200 

300 F0RI=1T08 : X*TI 

301 IFX+8>TITHEN301 

303 IFX+9>TITHEN303 

304 NEXT 

320 PRINT’TJIL TUO TEMPO £' " ; (TI-T-25V60; "SECONDS" 
322 X*INT(TI-T-25 >/60 
330 FORI*1T010 :GETAi NEXT 
350 FRINT"ANCORA <S/N>" 

355 GETSST IFSS$*""THEN355 

360 P*PEEK<515> IFPO22ANDPO=45THEH360 

361 IFP*45THEN50 
363 IFSS$®"S"THEN100 
370 PRINT"BVE BVE !" 


330 FORI*ITO10 : GETAf : NEXT 


READV. 
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ATTACCO 


In questo gioco potete scegliere di essere l’attaccante o il difensore di un 
castello. 

L’attaccante si muove da un campo a quello vicino seguendo un cammino 
che viene poi ostruito e non può essere più ripetuto. 

Il difensore può muoversi solo entro un campo limitato dalle lettere A, B e 

C. 

L’attaccante cerca di entrare nel castello attraverso una posizione dove si 
trova il difensore e se ci riesce vince. 

Entrambi i giocatori sono costretti a muoversi. Per finire il gioco premete il 
tasto S. 


10 REM 9. RTTACCO 
15 GOTO8000 

20 FORI*=1TO1700 : NEXT 

21 PRINTB*;C*:PRINTC*:PRINTC*: RETURN 

30 GETfi* : IFR*='"'THEN30 

31 RETURN 
100 CLR 

110 PRINT"BJN MOMENTO !" 

120 DIMR<15,15>,F<13> 

130 Zl=209 Z2=l?0:23=102 

141 C$=" 

145 W*="ABCBCCAABBCACBA" 

150 F0RI=1T015 
160 N=4 ; IFI=70RI=8THENN=5 
170 IFI=120RI=15THENN=3 
175 IFI-130RI=14THENN=2 
130 forj=iton:rerdx:r<;i,x>=i 

190 NEXTJ-NEXTI 
200 F0RI=1T018 
220 RERDV: FII>«V 
230 NEXTI 

240 B1=PEEK 1144):D2=PEEK <145 > 

300 GOSUB10000 : X=1 : Xl = 16 

31G POKE1024+F <X Z1 : POKE1024+F C X1>■Z2: P0KE55296+F < X >, 13 : P0KE55296+F < X1 ), 4 
315 IFD=1THENSM=1 : GOTO3000 

320 PRINTB*; " 3BTTRCC0B <R> 0 STOIFESAS <B>?":GO3UB30 
330 IFA*="D"THENSM=1:GOTO3000 
340 G0SUB21 GOTO1030 
1000 GOSUB20 

1030 PRINTB*;"RTTRCCRNTE SUL CAMPO"IX;: INPUT"IL VA A "; V* IFVÌ="S"THEN6000 

1040 V=VAL<V*> 

1041 IFX< 12ANBV-0THENPRINT"SLTQLLV !"GOTO1000 

1042 IFV=0THEN6000 

1045 IFV>15THENPRINT" SUI L CAMPO NON ESISTE !“:OOTO1000 

1050 IFA<X,Y>»0THENPRINT"SNON POSSIBILE !" GOTO1000 

; 060 IFR<X,V ) =20RACV , X)=2THENPRINT"SMIA BLOCCATA ! » :OOTO1000 

1070 GOSUB7000:IFSM=1THEN4000 

2000 V1=ASC<MID*<U*, X, 1 > >-49■OOTO2060 

2050 VI—RND<—TI) : Vl-INT<RNIK 1>#3+1> + 15 

2060 IFV1=X1THEN2050 

2070 PRINTB*;"IL DIFENSORE VA A ";"a "CHR*<Vl+49)" ; 

2075 00SUB28 
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2039 POKE1024+F<X1>,160 : POKE1024+F<V1>,Z2 

2085 P0KE55296+F <X1 >, 4 : P0KE55296+FCV1 > . 4 

2090 X1=V1 

2095 IFSM=0THEN1030 

3000 G0SUB21 

3010 IF2*0THENV=INT<RND<l>#4+2> GOTO1070 
3030 1*1-0 : FORI = ITO 15 IFR<X,I >=lTHENn=M+! M<M>=I 
3050 NEXT 

3060 IFM-0THEN6000 

3070 IFX<12THEN3210 

3140 IFX1 -16THENIPX-130RX* 14THENV-X1 

3142 IFX1 = 17THENIFX-120RX*13THEN'V*X1 

3144 IFX1-18THENIFX*140RX»15THENV-X1 

3200 IFV>15THEN7000 

3210 F0RI=MT01STEP-1 

3215 IFPEEK <33019 >=810RPE6K<33031 >*81 THENV*M< 11 
3220 IFRSC<MID*<W*,M<I>, 1 >>~49=X1THENV=M<I> GOTO 1070 

3230 NEXT 

3234 IFM<3THENV“M<1> 

3240 V«M<INT<RND<1>#M+1>> :GOTO10?0 

4000 IFD* 1THEN2000 

4010 PRINTB*;"TOCCR R TE:" 

4020 GOSUB30* V1=RSC < fi*>-49 
4022 IFV1=34THEN6000 

4025 1FY1<160RV1>18THENPRINT"S6EI DISTRATTO ":GOTO4040 

4030 IFX1*V1THENPRIHT" a DEVI ■ MUOVERE !":GOTO4040 

4035 GOTO2080 

4040 GOSUB20 : GOTO4010 

6000 G0SUB21 : IFV*-"3"THENA*-V* 

6004 IFA**"S"THENPRINTB*; "(NON AVEVI ALCUNA POSSIBILITÀ*" ":GOTO6200 

6005 IFM-0ANDSM-1THENPRINTB*;"SPENSO SIA STATO UH ERRORE ! » :GOTO6200 
6010 X»ASC<Y*>-49 

6020 IFX-X1THEN6100 

6030 PRINTB*;" BUA-HA! ! ! HAI PERSO !":GOTO6200 

6100 IFSM=1THENPRIHTB*;"SHO VINTO , COME SEMPRE !":GOTO6200 

6110 PRINTB*;"SCONORATULAZIONI# HAI VINTO !" 

6200 PRINT"UN ALTRO GIOCO ? <S/N>"; GOSUB30 
6210 IFA**"S"THEN100 
6500 END 

7000 IFSM=0THEN7010 

7005 PRINTB*;"L'ATTACCANTE VA DA ";X;" A "; 

7006 I FV< 16THENPRI NT Y : GOT07010 
7008 PRINTCHR*CV+49> 

7010 H*X : FORI=1T06 
7020 IFI>3THENH*V 

7030 POKE1024+F<H),Z1:P0KE55296+F<H>,13 
7040 FORJ=1TO200 NEXT 

7050 POKE1024+F <H >, Z3 : P0KE55296+F <H>, 13 
7055 FORJ-1TO200 NEXT NEXTI 
7060 POKE1024+F < H >,Z1 P0KE55296+F < H >,13 
7065 IFV-X1THEN6100 

7070 A<X,V>*2A<V,X>*2 

7071 P0KE144,D1 P0KE145.D2 

7072 F0RI-1T028READJ,H,B 

7073 IFJ*XANDH»VTHENPQKE1024+B,81 P0KE55296+B,13 : GOTO7080 

7074 IFJ-VANDH-XTHENPOKE1024+B,81 P0KE55296+B.13 :OOTO7080 

7075 NEXT 

7080 X*V Z=Z+1 • PR1NT": 7 
7090 G0SUB21 
7108 RETURN 
3000 PRINT"3" 

8010 PRINT”VUOI VEDERE UNA PARTITA DIMOSTRATIVA *’ <S/N>" 

8020 GETA* IFA*=""THEN8020 
8030 IFA**"S"THENCLRD*1 GOTO110 
8040 GOTO100 


9000 BATA2,3,4,5,1,3,6,7,1,2,4,7,1,3,5-8 

9010 DATAI,4,8,9,2,7,10,12 

9020 BATA2,3,6,8,10,4,5,7,9,Il 

9030 DATA5-8.11,15,6,7,12,13,8.9-14,15 

9040 DATA6, 10,13, 10, 12 

9050 DATAI 1,15,9,11,14 


9100 DATA737,569,573,581,585,409,413,421.425,331 
9105 DATA343,249,253,261,265,257,93,101 
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vOO DATAI, 2, 651,1,3/653,1,4,661,1,3,663 
>- 1 ^ DAT Fi2,3, 571,3,4,577,4,5, 583,2, 6,489,2,7,491 
•■•14 DAT A3, 7,493,4,8,581,5,8,583,5,9, 585 
•Ir. DATA6, 7,411,7,8,417,8,9,423 
1A DATA6,18,378,7, 18, 372, 8,11,382, 9, 11,384,6,12, 329,9, 1-5, 345 

• 8 DATAI8,12,298,18,13,292,11,14,382,11,15,384 

• . . DATAI2,13,251,14,15,263 


10088 

PRI NT " ntìFiTTACCOir- 


«CAMMINO!!" 

1001 I 

FRINT" 




UH? 12 

FRINT" 


a b c * 


18013 

FRINT" 


/na «fin 


10814 

FRINT" 


'■ i ^a r i s 


I0015 

FRINT" 

/ 

i i \ 


10016 

FRINT" 

%— 

—r—a ■— m—m 


10017 

PRXNT" 

12 l\ 

/ 13 14 \ / 115 


10018 

PRINT" 

1 £18 1136 1 


10019 

PRINT" 

\/ 

\ / \ 1 


10020 

FRINT" 

9r- 

—«-»—* 


10821 

FRINT" 

6 1 

/ 17 8 l\ 19 


10022 

FRINT" 

1 / 1 1 \ 1 


I0023 

PRINT" 

1/ 

1 1 \l 


10024 

FRINT" 

*— 

—ss - m—% 


10023 

PRINT" 

2 \ 

13 4 1/5 


10026 

PRINT" 

\ 1 1 / 


10027 

PRINT" 


\ 1 1/ 


10028 

PRINT" 


mmmmm 


10029 

PRINT" 


ì 


10030 

RETURN 





K’EADV. 
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ARTIGLIERIA 


In questo gioco due giocatori si sparano addosso attraverso una monta- 

gna. 

I giocatori devono comunicare l’angolo e la forza di tiro e devono anche 
prendere in considerazione la velocità del vento. 


3 REM 10. ARTIGLIERIA 

10 DIMA<100),B<100),H<39),A1<2),B1<2). A2<2>,B2<2>, L<2) 

13 PRINT"3" 

20 PRINT "«ISTRUZIONI ? <S/N)";GET D*: IF D*="N"THEN41 

21 IF D*<>"S"THEN 20 

30 PRINT"3"/"GIOCO DI ARTIGLIERIA" 

31 PRINT:PRINT"DUE GIOCATORI SI SPARANO ADDOSSO" 

32 PRINT"ATTRAVERSO UNA MONTAGNA." 

33 PRINT : PRINT"A TURNO I GICATORI DEVONO INDICARE" 

34 PRINT"L y ANGOLO DI TIRO <0-90)" 

33 PRINT"E LA FORZA <5-10)PRINT 

36 PRINT"E DEVONO ANCHE CONSIDERARE IL VENTO." 

37 PRINT:PRINT"PER AVERE IL DISEGNO DI UNA NUOVA MONTAGNA RISPONDI 0." 

39 PRINT:PRINT:PRINT"PREMI QUALSIASI TASTO PER COMINCIARE" 

40 GET G$ : IF G$='"' THEN 40 

41 PRINT"3" 

50 Z*="S "11" F0RX=1T03 :Z*=Z*+Z* :NEXTX 

60 A*="M":F0RX=1T06:A*=A*+A* NEXTXB*="M" F0RX=1T05 B*=B*+B* NEXTX 
80 N=2 

130 X1=INT<6+RND<1)*3) 

140 X2=INT<25+RND<1>#3> 

130 L<1)=INT<3+<X1-3)*RND<1)) 

160 L<2)=INT<X2+l+<36-X2)*RND<l)> 

170 H9=RND<1)*11+1 

1S0 FOR 1 = 1 TO XI :H<I)=H9 NEXTI 

210 H9=RND<1)*11+1 

220 F0RI=X2T039:H<I)=H9 NEXTI 

230 IFABS<H<1)-H<39)X4THEN170 

260 X3=X1+INT<RND<1)#<X2-X1-S>)+3 

270 H<X3)=RNB<l)*ll+9 

290 Dl=<H<X3)-H<l))/2 

300 D2=<H<X3)~H<39))/2 

310 IFD1*D2<=0THEN470 

320 J=~130 

330 K=180/< X3-X1 +1) 

340 H9=H<1)+B1 
350 FORI=X1+1T0X3-1 
360 J=.J+K 

370 H<I)=H9+COS<J*«/180)*D1 
330 NEXTI 
390 J—0 

400 K«180/<X2-X3+1> 

410 H9=H<39)+D2 
420 F0RI=X3+1T0X2-1 
430 J=J+K 

440 H<I)=H9+COS<J*ir/lS0)*D2 

450 NEXTI 

460 GOTO550 

470 D=<H<l)-H<39))/2 

480 J=0 

490 K*180/<X2-X1+1) 

500 H9=H<39)+D 
510 FORI=X1+1T0X2—1 
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520 JaJ+K 

530 H < I > -H9+C0S < J#ir/180 ) #D 
540 NEXT I 
550 FRI NT ".TU" ; 

560 U»INT<100* <RNDC1>-.5)> 

570 PRINTLEFT* (. B* ■ 22 } 

580 POR I = J. T 039 :H<I>«INTCH<I> + .5>: NEXT T 
590 FQRX- J. T039 : I FX* 1THEN610 

600 PRINT" HI" ; 

610 PRINTMIB*<Z*,1,HCX>*4>; 

650 F0RZ”1TOH<X>:PRINT"W M • : NEXTZ 
660 NEXTX:PRINT""" 

670 PRINT"»".; 

630 PRINTMIB*<B*, l/22-H<l>); : IFL< 1 >»1 THEN700 
690 PRXNTMID*<fì*,l,L<l 
700 PRINT"t"; 

710 PRINT"»"; 

720 PRINTMID*<B*,i,22-H<39>>; 

730 PRINTMID*<A*,1,L<2>-1>; 

740 PRINT" t" ; :OET G* GET G* 

750 PRINT"»"; 

760 PRINTMIB*<B*,1,24 >; 

770 PRINT" 

730 K-l 

790 IFW>«0THEN820 

S00 PRINT-W;" MPH VENTO VERSO SINISTRA"; 

810 GOTO840 

320 PRINTW;" MPH VENTO VERSO DESTRA"; 

330 PRINT"»"! 

340 P0KE54296,15:P0KE54273,8 :P0KE54277,16:P0KE54278,32+6 
345 PRINT"»", :N=3-H: IFN-1THEN900 
350 PRINTLEFT*< A*,28>;"ANGOLO"; 

360 INPUT E 1 PRINT"»"; 

370 PRINTLEFT*<B*,1>;LEFT*<A*,28); 

875 PRINT "FORZA".; 

380 INPUTV: IFV>15THENV*15 
390 GOTO910 
900 PRINT"»";" 

902 PRINT" 

903 PRINT"ANGOLO"; 

905 INPIJTE : PR I NT " ««FORZA" ; : I NPUTV : IFV> 15THENV-15 

910 P0KE54276,128+1 :P0KE54276,128 

920 K-K+l:IFE-0THEN130 

930 R2 < N >-A2 < N>-2.86 

940 E-90-E 

950 IFN»1THEN970 

960 E=-E 

970 Xl-L-CN) 

930 V1«HCL<N)>+1 

990 T«=0 : M*0 

1010 V 1=31 N < E*ir/130 > *V 

1020 V2-C0S < E*ir/180 > *V*. 7 

1030 T=T+.5 M-M+J. 

1040 V1 =V 1 + •:V1+W#. 5> /1500 
1050 X*Xt+< V1+W*.5/50>*T 
1060 X*INT < X+.5 > 

1070 V=V1 + < V2-T/3>*T 
1080 V= I NT (. V+. 5 > 

1090 Z*23~V PRINT"»"; 

1092 A <M >*Z : B<M>-X : IFX>390RX<1THEN1350 

1094 IFV-H< X > O0THEN1340 

1100 IFZ<0THEN1150 

1110 IFZ=0THEN1125 

1120 PRINTLEFT*<Bf,Z >; 

1125 IFX=1THEN1140 
1130 PRINTLEFT*<A*,X-1); 

1140 PRINT”*" 

1150 PRINT"»", 

1160 IFM-4C1THEN1030 
1162 IFR <M-4 y =0THEN11S0 
1164 I FA < M-4 ) <0ORB < M-4 > O0THEN1030 
1170 PRINTLEFT*<B*,fì<M-4>); 

1130 PRINTLEFT* < A*,B<M-4 >-1>; 
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1190 FRI NT" 

1.00 PRINT"»"; 

1 220 GOTO1030 

I .'30 IFM-1THEN1030 

1/32 IFB<tl)< 1ORB<M»39THEN840 

1234 I FRBS< E CM-1 ) -L < N) XITHEN1250 

1240 DOTO1260 

1230 IFTMTHEN1510 

1260 IFRBS<B<M-1>-L<3-N>X1THEN1560 

1270 IFT<1THEH1030 

1280 GOTO 1460 

1290 PRINT M aSM««!a^2«asa«i!W«i!ltì!'Ii!.Wi!KKriLTR0 GIOCO <S/N> iaa 

1310 INPUT G$ 

1 320 IFLEFT*<0$. 1>0"N"THEN15 
1330 PR I NT " .TB VE ! E VE ! " : FRI NT 
1333 END 
1340 PRINT"»"; 

1350 F0RJ=4T01STEP-1 

1360 IFM-J<=0THEN1440 

1:370 IFfl<M-J>=0THEN1405 

1380 IFRC (1-J > C0ORB Ol-J) <=0THEN 1440 

1400 PRINT LEFT#<B*.R01-J)3; 

1405 IFB < ri-J ) -1THEN1420 
1410 PRINTLEFT*<fi*.B<M-J3-n; 

1420 PRINT" 

1430 PRINT"3"; 

1440 NEXTJ:IFn=lTHEN1600 

1450 I FB < M > < 1 ORB C fi ; >39THEN 1610 

1433 GOTO1230 

1460 IFB< M-1> «1THEN1470 

1463 PRINTLEFT*<0*.B<M~1)-l>; 

1470 PR INTLEFT*<B*. 23-HCBCM-1 ) > ) 

1472 FORZAIT03 : PRINT"n»3o/.TiBl!@?/" ; : F0RX-IT05 : NEXTX 
1474 PRINT"IMW .IMI IBMS" . F0RX-1TO5 NEXTX : NEXTZ : PRINT"*.” : 

1480 DOTO 1600 
1510 PRINT»»"; 

1520 PR I NTLEFT* < FI* , L < N ) -1 > ; 

1530 PRI NTLEFT* <B*. 24-H< L CN) ) > ; 

1340 FORZAI Tota : PRINT"-llsn»rjr>miiV7ST«B7|lfB»:rK'-s?.-'/l«l®»!" ; "IH" 

1544 print" nin nnin iHimr ; 

1545 FORX» 1T02 : NEXTX : NEXTZ 

1546 F0RX-1TO50:NEXTX 
1550 GOTO 1290 

1560 PRINT"»"; 

1570 PRINTLEFT*CRT, L<3-N)-l>; 

1530 PR I NTLEFT* < B*.. 24-H < L < 3-N > -1 > > ; 

1590 GOTO1548 
1600 REM 

1610 W=U+1NT<104 <RND<1>-.5 >5 

1620 PRINT"»" ; LEFTSCB*,. 24) " " ; 

1630 IFW>=0THEHPRINT" SEBI" W; " MPH VENTO VERSO BESTRfi" ; : GOTO840 
1640 PRINT" VENTO VERSO SINISTRO " ; OOTO840 


REOBV. 





QUADRATO MAGICO 


In questo gioco dovete mettere dei numeri in un quadrato, in modo tale 
che la somma di ogni fila, colonna e diagonale dia per risultato 15. 


100 REM 11. QUADRATO MAGICO 
110 PRINT "O” 

140 CLRU3OSUB600 

150 PRINT: INPUT"INDICO POSIZIONE .. NUMERO "JI.• N 
160 IFI< 1 ORI>90RN< 10RN09THEN1SO 
170 IFACI)=0fiNDB<N)=0THEN190 

190 PRINT : PRINT" INPUT ERRATO !... PROVA III NUOVO" : GOTO 150 

190 R<I> as N : B<N> = l ; M-M+l 

200 OOSUBS00 

.10 OOSUB450 

220 IFW=0THEN240 

.10 PRINT:PRINT"SPIACENTE , HAI PERSO !":GOTO420 

240 IRK5THEN260 

250 PRINT"FFFFF":GOTO420 

260 FDRQ=1T09 

270 IFA<Q>>0THEN350 

280 F0RR-1T09 

290 IFB(R»0THEN340 

■:00 fl<Q>=R 

310 GOSUB450 

320 IFW=8THEN370 

330 Q1=Q : R1=R : U=0:A<Q)=0 

340 NEXTR 

350 NEXTQ 

360 W=1:R»R1 : Q=Q1:R<G)=R 
370 BCR>=1 

330 PRINT:PRINT"IO METTO UN"R“IN POSITIONE"Q 

390 GOSUB600 

400 IFW=0THEN150 

410 PRINT"BRAVO ! HAI VINTO" 

420 INPUT"VUOI GIOCARE ANCORA <S/N>"jV$ 

430 IFV*="S"THEN140 

440 END 

450 FORX=lTOS 

460 ONXGOTO470,480,490,500.. 510.. 520.530 

470 J« 1 : K=2 : L=3 : OOTO540 

430 K=4:L=7:OOTO540 

490 105:L-9:OOTO540 

500 J k 4 : L-6 : GOTO540 

510 J=3:L=7:OOTO540 

520 K=6 : L=9 : GOTO540 

530 J=7:K=8:G0T0540 

540 IFA<J)=0ORA<K)=0ORA<L>=0THEN560 

550 IFA<J)+A<K>+A<L>O15THEN580 

560 NEXTX 

570 GOTO590 

530 W*1 

590 RETURN 

600 PRINT : PR1NTTABC25) A< 1 >AC2> ; A<3> 

610 PRINTTAB^,251AC4>;AC5);A<6> 

620 PRINTTAB<25)A(7>;A<8);A<9> 

630 PRINT 
640 RETURN 

READV. 
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GIROTONDO 


In questo gioco vengono mostrati N numeri (N è definito nella linea 40 
del programma) in una sequenza casuale. 

Per vincere dovete disporre i numeri in ordine crescente, cambiando una 
certa parte dell'elenco. 

Esempio: 

l’elenco: 

5 4 3 2 1 6 7 

deve essere cambiato in: 

1234567 

nel modo seguente: 

Quando il computer vi chiederà: 

"QUANTI NE DEVO FAR GIRARE?” voi dovrete rispondere: 5. 


10 REM 12. GIOSTRA 
20 PRINT " O" 

30 DIMfK20) 

40 N=7 REM PUÒ' ESSERE CAMBIATO 

30 A< 1 ) » I NT < < N~ 1 > *RND 1 > > +2 

60 F0RK=2T0N 

70 ROO*=INT<N#RNIK1>> + 1 

80 F0RL=1T0K-1 

90 IFfKK>=R<L>THEN70 

100 NEXTL 

110 NEXTK 

120 FRINT 

130 PRINT”LR LISTR BEI NUMERI E' LR SEOUENTE" 

140 PRINT 

ISO T=0 

160 GOSUB360 

170 PRINT 

130 INPUT"QUANTI NE DEVO FAR GIRARE ";R 
190 I FR<=NTHEN220 

200 PRINT-PRINT"IL MASSIMO E' "INI" M!“ 

210 GOTO170 
220 T=T+1 

230 FORK-ITOINT<R/2> 

240 Z=A<K> 

250 A<K>-A<R“K+l> 

260 ACR-K+1>=Z 

270 NEXTK 

280 GOSUB360 

290 F0RK=1T0N 

300 IFAOOOKTHEN170 


35 



310 NEXTK 

320 FRINT PRINT PRINT 

330 PRINT"TI SERVONO"T"MOSSE !" 

340 PRI NT PRINT - PRI NT 

350 END 

360 PRINT 

370 FORL=lTON 

380 PRINTflCL); 

390 NEXTL 
400 PRINT 
410 PRINT 
420 RETURN 

REflDV. 
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DISTANZA FRA DUE CITTA 


Questo programma vi permette di calcolare la distanza tra due città qual¬ 
siasi della terra. 

Quello che dovete conoscere sono le coordinate delle città (latitudine e 
longitudine). 

Il programma vi mostra una mappa del mondo indicante i nomi lampeg¬ 
gianti delle città che avete selezionato, e contiene anche una lista di città 
con le loro coordinate. 


1 REM 13. DISTANZA FRA DUE CITTA' 

4 DIMWX18) 

3 PRINT"3" 

10 PRINT" CALCOLO DI DISTANZE" 

13 PRINT 

20 PRINT" LE COORDINATE POSSONO ESSERE SCRITTE" 

22 PRINT" DALLA LINEA 2000 COME DATA" 

23 PRINT" FORMATO: DATA NOME.LONGITUDINE. LATITUDINE" 

23 FQRI“1TO4000 : NEXT 

26 PRINT 11 3" : OOSUB1100 

27 Q-1024 

10 PRINT:PRINT"SCHALCOLO SECONDO LE COORDINATE" 

31 PRINT"CITTA' DALLA 5LHISTA SD5ISPLAV DELLA LISTA" 

32 GETA* 

33 IFA$*"C"THEN99 

34 IFA*="L"THEN1000 

33 IFAÌ="D"THENLIST2000- 
39 G0T032 

99 PRINT"O" 

100 PRINT:PRINT"CALO. DI DISTANZA FRA DUE CITTA'" 

102 PRINT" <INPUT DELLE COORDINATE" 

103 PRINT" FORMATO:GRADI.MIMUTI / OVEST E" 

104 PRINT" SUD NEGATIVI>" 

110 PRINT"*" 

111 PRINT "NOME DELLA PRIMA CITTA'".: 

113 INPUTN1* 

113 INPUT" LONGITUDINE ":L 
120 OOSUB500 

122 Ll-G 1 L5=*GR 

123 INPUT" LATITUDINE ":L 
128 GOSUB500 

130 El-G : B5=GR 

133 PRINT"NOME DELLA SECONDA CITTA'"; 

137 INPUTN2* 

140 INPUT" LONGITUDINE ":L 

143 GOSUB500 

145 L2=G'L6=GR 

143 INPUT" LATITUDINE ";L 

130 GOSUB500 

132 B2=G:B6=GR 

160 V»SIN<B1>*SINCB2>*C0S<B1>*C0S<B2)*C0S<L2-L1> 

161 IFV=0THENEM=n/2:GOTO166 

162 EM-ATNCSQR<1-V*V >/V> 

164 IFEM<0THENEM“EM+ir 
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166 EM=EM*<180/it>*60 
16? EK=EM*1.832 

168 EM=INT< EM*1000+.5 >/1000 :EK=INT CEK*1000+.5 >/1000 

169 PRINT"73" PRINT : PRINT : PRINT PRXHT 

170 PRINT"LA DISTANZA DA ";N1* 

175 PRINT"A ";N2*;" E'" 

178 PRINTEM;" MIGLIA, 0", 

180 PRINTEK;" KILOMETRI" 

181 FORI = 1TO3000 NEXT 

182 B3=INT<<90-B5>/10>+1 

183 B4=INT<<90-B6>/10>+1 

190 Gl-INT£<L5+180>/10> +B3*40 
192 G2=INT C<L6+1801/10 >+B4*40 
200 PRINT"73" - GOSUB1150 
202 EK=INT(EK> 

210 PRINT PRINT"DISTANZA DA ";N1*;" A ”;N2*;» " : PRINTEK; 

212 H1 *PEEK<Q+G1 > : H2=PEEK <. 0+G2 > 

213 H3-ASCCLEFT*(N1*,1> >-64 H4-ASC < LEFT*(N2*,1>)-64 

214 IFG1=G2THEN224 

215 FORI=1TO20 

21? POKEQ+G1,H1 P0KEG+G2,H2 

219 FORJ-1TQ108 : NEXT 

220 POKEQ+Gl,H3 P0KEQ+G2,H4 

222 FOR J“ 1TO500 NEXT 

223 NEXT'GOTO230 

224 FORI=1TO20 

225 POKEQ+G1,HI FORJ=1TO150 NEXT 

226 P0KEQ+G1,H3 FORJ-1TO500 NEXT 

227 P0KEQ+G2,H2:FORJ=1TO150 NEXT 

228 P0KEQ+G2..H4 FORJ=1TO500 NEXT 

229 NEXT 

230 PRINT" SPREMI <SPAZIO> PER CONTINUAREB" 

240 GETA* IFAtO" "THEN240 

250 GOTO50 
500 Z=1 

502 IFL<0THENZ=-1 L=ABS<L> 

5@5 GR=a-INT<L>>*10/6+INTCL> 

510 G=n/130*GR*Z 
512 GR=GR*Z 
515 RETURN 
10O0 PRINT"3" 

1010 RESTORE 

1012 INPUT"NOME DELLA PRIMA CITTA' ";N* 

1020 READB* ,• LA, BA 
1022 IFB*»"FINE"THEN1050 

1024 IFB*=N*THEN1030 

1025 B*="" 

1029 GOTO1020 

1030 PRINT GOTO1060 
1045 GOTO1036 

1050 PRINT"LA CITTA' NON E' NELLA LISTA" 

1055 GOTO50 
1060 N1*=N* 

1062 L=LA GOSUB500 

1064 L1=G : L5=GR 

1065 L-BA:GOSUB500 
1067 B1=G B5=GR 
1070 RESTORE 

1075 INPUT"NOME DELLA SECONDA CITTA' ";N2* 

1080 READB*,LA,BA 

1083 IFB*="FINE"THEN1050 

1035 IFB*=N2*THEN1087 

1086 GOTO1080 

1087 PRINT 

1090 L=LA GOSUB500 

1091 L2=0 : L6-GR 

1092 L*BA GOSUB500 

1093 B2=G B6=GR GOTO168 


KILOMETRI" 
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1100 W*<1) = ' 1 
II02W*<2:' = " ! 

1104 U*<3>«” I*S 
1106 Ui<4>=" 

1106 W*(5:> = " 

1 I 10 UtC6) = " 

I 112 Wt<7>='' 

1114 W*<8>=" 

1116 Ult<9>“" 

II 18 Wta0> = " 
1120 Wt<11>=" 

I 122 Wt<12> = " 
1174 U*a3) = " 

I 126 Wt<14>=" 

1127 W*<13>=" 

1128 W*a6)*” " 
1130 W»<17>«" " 
1132 Wt<18>=" m 
I 150 F0RI=1T018 
1151 PRINTUItCI> 

I154 NEXT 




vrnmmtmmtm i 
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i 
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II95 RETURN 

,000 DATA CHICAGO,-87.36,41.50 

,■002 DATA ST.LOUIS,-90. 12,38.38 

7006 DATA NEW ORLEANS,-90.04,29.56 

2008 DATA DUESSELDORF,6.24,51.14 

2010 DATA FRANCOFORTE,8.42,50.08 

2014 DATA KAISERSLAUTERN,7.46,49.25 

.016 DATA MONACO,11.34,43.09 

2018 DATA BAD REICHENHALL,12.52,47.38 

2020 DATA COLOMBO,80,7.03 

2022 DATA SINGAPORE,103.5,1.25 

2024 DATA JAK ART A, 106. 30, -6. 17 

2026 DATA CELEBES,120,-3.25 

2028 DATA MILANO,9.07,45.27 

2030 DATA BERLINO,13.2,52.3 

2032 DATA BERNA,7.26,46.54 

2034 DATA VIENNA,16.24,48.2 

2036 DATA ROMA,12.2,41.55 

2038 DATA CAIRO,30.15,30 

2040 DATA MELBOURNE,145,-32.1 

2042 DATA PECHINO,114.2,40 

2044 DATA MOSCA,37.13,56.3 

2046 DATA RIO DE JANEIRO,-43.5,-23 

10000 DATA''FINE",0,0 


READV 







CURVE 


Il programma seguente vi permette di tracciare il grafico di funzioni mate¬ 
matiche. Per esempio: 

FNA(X)=SIN (X) 

oppure: 

FNB(X)=X*X 


REM 14. CURVE 

10 PRINT "IX .< 

11 PRINT"QUESTO PROGRAMMA TRACCIA IL GRAFICO" 

.O PRINT"DI DUE FUNZIONI MATEMATICHE." 

26 PRINT:PRINT 

io PRINT"SE NELL'ANGOLO IN ALTO A DESTRA APPARE" 

35 PRINT"IL SIMBOLO 8 PUOI CONTINUARE" 

40 PRINT"L'ESECUZIONE DEL PROGRAMMA PREMENDO" 

42 PRINT"QUALSIASI TASTO." 

43 OETM* IFM*=""00T043 

45 pR INT "O" : PRI NT" MsaKUSWMKS" 

50 PRINT" 3"; "SCRIVI ALLA LINEA 300: BEFFNAOO-. .. " 

00 PRINT"3";“SCRIVI ALLA LINEA 310: DEFFNB<X>=..." 

.'0 PRINT:PRINT : PRINT"300DEFFNA(X)=0" PRINT PRINT"310DEFFNEC 
75 PRINT"RIJN100" 

30 PRI NT "mi ITITI" STOP 

35 PRINT"NUOVO VALORE DI PARTENZA <S/N> " 

90 GETL* 1 IFL*="S"THEN105 
95 IFL*="N"THENENB 
97 GOTO90 

100 DIMU < 39 W e 39 > , l*K 391' 

105 PRINT"O" : INPUT"VALORE INIZIALE DI X ";A 

110 INPUT "VALORE FINALE DI X ";B 

120 INPUT"FATTORE DI SCALA "JC 

130 INPUT"LIVELLO DELL'ASSE X "1D 

140 E=38*<-A1/<B-A>+1 

150 D-D+l1 

200 PRINT"0" 

205 IFEC0OREO38THEN220 

210 F0RF=1T024 PRINTTAB<E); " I " : NEXTF 


220 PRINT"3" 

225 IFD<0ORD>24THEN300 
230 FORO=lTOD PRINT:NEXTO 

240 PRINT" - 

300 DEFFNA eX >-X 12 

310 DEFFNB<X> «SINCX> 12+COS <X>12 

320 N=eB-HV3S'L=0 


330 FORX=ATOB STEPH 
340 J=D-INT<FNB<X>*C+0.5> ; L=L+1 
345 U<0 = 1 NTeFNAeXIstU000000V1000000 
350 PRINT"3"; 

355 IFJ>20ORJC0GOTO375 
360 FORK=0TOJ:PRINT:NEXTK 
370 PRINTTABCL); "0" 

375 VCL) = INT < FN8<X> *1000000 >/1000000 : WCL > 
380 M=D~INTCFNA<X>*C+0.3> 

390 PRINT"»"! 


= 1 NT ex* 1000 VI 000 


>= 0 " 
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393 IFM>200RM<0GCT0420 
400 FORN*0TOM:PRINT NEXT 
410 PRIMTTfìB<L>; 

420 NEXTX 

422 PRINT"3";"0" 

425 GETR$ IFRt=”"GOT0425 
42? PRINT'TJ" PRIMT "ICWRHKaS" 

430 PRINT"LISTR DEI VRLQRI ?" 

450 GETM$:IFM»= M S W GOTO480 
460 IFMt="N"G0T085 
470 G0TO45O 
480 PRINT-H";"0" 

490 PRINT" X FNRCX) FNB<X> " 

500 FORL®1T019 PRINTU(L>/U<L>j>V<L> NEXTL 
510 GETMf IFM$='" , THEN510 
520 PRINT'TT' ; " X FNfl(X> : FNB<X> 

530 FORL*20T038PRINTW<L>/U<L>,V<L> NEXTL 
550 G0TO83 

REfìDV. 
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ZANZARE 


Scopo del gioco è di ammazzare quante più zanzare possibili in tre minuti. 
Voi controllate lo schiacciazanzare con i tasti 2, 4, 6, 8. 


10 REM 15. ZANZARE 

V» REM-—-REGOLE*»-»-» 

(.0 PRXNT"0"SPC<12>"#************"SPC(27>"lt! ZANZARE *"SPCC27>"************* 

11 PRINT"SCOPO DEL GIOCO E' DI AMMAZZARE QUANTE" 

C>, PRI NT "PIU" ZANZARE POSSIBILI IN UN TEMPO DI" 
ni PRINT"130 SECONDI CON UNO SCIACCIAZANZARE !" 
f/ì PRINT 

i*0 PRINT "LE CHIAVI '2'.,'4','6','8' SERVONO PER" 

PRINT "PER MANOVRARE LO SCHIACCIAZANZARE IN" 

,• I PRINT 

,'•1 PRINT "BASSO <2> SIN <4> DESTRA <61 ALTO <3>" 

75 PRINT 

/>. PRINT"ALLA FINE VEDRETE QUANTE ZANZARE " 

'• PRINT"AVRETE UCCISO." 

76 PRINT"» SPREMI UN TASTO ! B" 

60 GETA*:IFA*=""THEN80 

I DO REM——ZANZARE-— 

I 70 DIMPC3>,H<4> :H<0)=0 i DEAD=0 
130 H<1)«40:H<2>—1:H<3>»1:H<4>=-40 
700 REM——BOROI — 

IO PRINT"0"iHO-1064:RU-HO+959:CO-53336:CU-CO+959 
.'20 FORR-0TO33 ; POKEHO+R, 211 :F'OKECO+R,7 
.33 POKERU-R,211:POKECÙ-R,7 NENT R 
40 PORR»1T023:POKEHO+40»R,211 :POKECO*40*R,7 
250 POKERU-40#R,211 : POKECU-40*R,7 :NEXT R 

260 PRINT"P*»#****l»lf»l_TEMPO_ 

3O0 REM—POS IZI ONE DI PARTENZA— 

310 FOR K=1 TO 5G0SUB 900 

320 POKETP,123 : P<K>=TP : POKETC,13 : NEXT K 

330 OOSUB900 : POKETP, 88 : POKETC, 13 : F'S-TF' : F'C=TC : T0'=TI 

399 REM—TEMPO— 

400 ZEIT«INT<<TI-T0V60> :PRINT"SS*»**P»»»*(»»»li*»ilHi»il"ZEIT M B” IFZEIT>»180THEN1000 
420 PRINT"HSWM*MiM»*MiM'M>»H**r 1 DEAXU "B" 

499 REM—MOTO DELLO SCHIACCIAZANZARE— 

500 GETZ* : IFZ*=" "THEN550 

310 IFZ*O"2"ANDZ*O"4"ANDZ*O"6"ANDZ*<>”8"THENZ=0 : GOTO550 
520 Z«VHL<Z*):Z»Z/2 

550 TS-PS+H<Z> :PE=PEEK<TS> : IFPEO42QOTO580 
560 FQRK-1T05 IFP(K>=TSTHENGOSUB800 
570 NEXTK 

530 IFPEO32TI-IEN600 

590 POKEPS, 32 : PS=TS : POKEPS, 88 : POKEF'S+34272, 13 

599 REM—MOTO DEI VOLI — 

600 FORK-1T03:Q=INT<5*RND<1)>:TF-P<K)+H<Q> : PE-PEEK<TF> ; IFPE-88THENGOSU8800 : G0TO4 
00 

610 IFPEO32THEN630 

620 POKETF, 123 : POKETF+54272,1.3 : POKETP-H<Q>, 32 : P<K)»TF 

630 NEXTK GOTO400 

799 REM—COLLISIONI — 

300 Q=INT<5*RND< 1 > ) : TS=PS+H<Q> : IFPEEK<TS>O32THEN800 

920 POKEPS,42 :POKEPS+54272,13 : PS-TS ; POKEPS,88 :POKErS+54272,13 : POKER<K>, 32 

825 GOSUB900 : P<K>=TP:BEAD-DEAD+1 

830 POKETP,123 ; POKETP+54272,13 : RETURN 

899 REM—POS IZIONI CASUALI—= 

900 R=INT<959*RNDCÌ) ) :TP-HO+R : TC-CQ+R : IFPEEK<TP>O32THEN900 
910 RETURN 
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1000 REM===TEMPC SCADUTO=== 

1010 PRINT"MSHB««Kir 

1020 fri NT” m m * wm** mmm » m n 

1021 print'»*»«« m m s » m m m m ® ® ® 

1022 PRINT" *MnWSW » » Wm MI 3N» « * » 

1023 PRINT" «MI* SS ® « & X M M ® 

1024 print"«mrs » mm s « » ns m ss#* 

1025 PRINT 

1026 PRINT"MMIIN 180 SEC. "DEAD” ZANZARE UCCISE !M" 

1028 REM===COMMENTI RI RISULTRTI=== 

1030 ONINT <DEAD/4> +1GOSUB1100,1200,1300,1400,1500,1600,1700,1800,1300,2000.2100 
1040 PRINT"«IS "SPC<4>" S"A* 

1050 PRINT"»IS "SPC<4>"S"Z* 

1055 IFK=9THENPRINT”«IS SPIRCCICRTORE DI ZRNZRRE ! ! 

1060 FORI=1TO3000NEXTI 
1070 PRINT PRINT 

1080 INPUT" VUOI GIOCARE ANCORA ''SI/NOI ”;ZZ* 

1085 IFZZ*="SI"THEN1095 

1090 IFZZ*= "NO"THEHPRINT"IT"END 

1095 CLROOTO100 

1096 REM 

1097 REM===CCMMENTI ALLE SUBROUTINE=== 

1098 REM===CHIAMATE DA ON..GOSUB=== 

1099 REM 

1100 A*=" UNA PRESTAZIONE UN PO' DEBOLE ! " 

1110 Z*=""-RETURN 

1200 A*=" PER 3 MINUTI "+STR*<DEAD>+" ZANZARE NON 


1210 

Z#«" 

SONO MOLTE 

M •RETURN 

1300 

fì*- M 

IN RFRICfi NON DORMIRESTI PER 

" 

1310 

" 

5 ORE OGNI NOTTE ! 

" RETURN 

1400 

R*=" 

SODDISFACENTE ! 


1410 

Zt=" 

CONSIDERATI UN PRINCIPIANTE 

" RETURN 

1500 

R$=" 

NON TROPPO MfìLE ! 

" 

1510 

Z*=" 

UNR BUONR PORTITR 

" RETURN 

1600 

R*» M 

MOLTO BENE!!! 

•• 

1610 

Z**" 

SEI QUASI UN PROFESSIONISTA 

" RETURN 

1700 

Rf = " 

VRI SEMPRE PIU' FORTE 

" 

1710 

Z*-" 


" RETURN 

1800 

R*«" 

FORTISSIMO ! SUPERLATIVO ! 

" 

1810 

Z*-" 

SEI IL PIU' GRANDE 

" K=9 RETURN 

1900 

FOPK* 



1910 

Z*-"SONO STRABILIATO PER LA TUA BRAVURA 

" RETURN 

2000 

A*-" 

ECCELSO 

" 

2010 

Z*-" 


" RETURN 

2100 

Rf- M 

SEI IN ASSOLUTO IL PIU' GRANDE 

" 

2110 

Z*-" 

CACCIATORE MONDIALE DI ZANZARE 

" RETURN 


READV. 
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IL TEMPO NEL MONDO 


Questo programma vi mostra il tempo centrale europeo (MEZ) e il tempo 
In altri 20 paesi. 


8 REM 16. IL TEMPO NEL MONDO 
7 PRINT'TJ" :DC=54272 
0 GOSUB4000 

•> PRINTTAB<8> " SIL TEMPO NEL MONDOB":PRINT:PRINT:PRINT:PRINT 

10 INPUT"CHE ORE SONO (6 CIFRE> ";TI* 

11 INPUT"OIORNO DELLA SETTIMANA (LU=1> ";X1 

12 INPUT"GIORNO,MESE,ANNO <OG,MM,AAAA> “;X2,X3,X9 : V1=X3 

13 DIMWO*<7),MO(12).MO*a2) 

14 F0RI=1T07REHDW0*<I>:NEXT 

13 F0RI = lTO12 : READM0a>,MO*a> •'NEXT 

16 DATALU,MA,ME,OI,VE,SA," aUOS",31,OEN,28,FEB,31,MAR,30,APR,31,MAO,30,GIU 

17 DATA31,LUG,31, AGO» 30,SET,31,>0TT, 30, NOV/31,DIO 
13 PRINT"O" 

20 DATA151,143,146,140,132,148,137,141,133,160,160,143,142,160,160,148, 136,133 

21 DATA160,160,131,182,180 

22 DATAI,1,2,1,1,6,1,1,1,1,1,20,1,1,1,1,1,2,1,3,1,1,1,1,1,1,1,1,1,1,20, 1, l, 1,1 

23 DATAI,1,3,2,1,1,1,1,1,1,1,22,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,20,1,1,1,1 

24 DATA8,1,1,1,1,1,1,1,2,20,1,1,1,4,1,1,1,1,1,1,2,1,2,2,20,1,1,1,5,1,1,1,1,1,2 

25 DATA27, 1,5, 1,1,1,1,1,7,22,1,1,1,5,1,1,6,1,2,1,20,1,1,1,6,1,8,23,1,1,6,1,2,4 

26 DATAI,1,1,22,1,1,6,2,5,1,1,1,22,1,15,1,2,22,17,64,4,1,1,1,1,1,1,1,1,1,25 

27 DATAI, 1,1, 1,1, 1,1,1, 1,1,1-, 1,1,1,25,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0 

28 DATA160,160,141,133,154,160,160,160,160,160,160,160,160,160,160,160,160,168 

29 DATA160,160,160,160,160 
95 REM 

,96 REM BORDI 
97 REM 

100 POKE1024,79 : P0KE55296,4 

105 FORP»1025TO1062 :POKEP,99 :POKEP+DC,4 :NEXT 

110 POKE 1063,80 : POKE 1063+DC, 4 

115 FORP=1103TO19S3STEP40: POKER,103 :POKEP+DC,4 :HEXT 
120 POKE2023,122 :POKE2023+DC,4 

125 FORP-2022TQ1985STEP-1 1 POKEP,100 : POKEP+DC,4 :NEXT 

130 POKE1984,76 POKE19S4+DC,4 

135 F0RP-1944T010Ó4STEP-40'POKEP,101 : POKEP+DC,4 NEXT 

136 POKE1066,45 :POKE1101,43 :POKE1066+BC,4 -POKE1101+DC,4 

140 FORF’-1072TO1094 : RE ADA : POKEP, A : POKEP+DC, 4 : NEXT 

141 REM 

142 REM MAPPA DEL MONDO 

143 REM 

144 F-1151 

145 READL IFL=0THEH135 

150 P=P+L:POKEP,42 :POKEP+DC,13 : GOTO145 

151 REM 

152 REM OROLOGIO 

153 REM 

155 FORA-1294T01301 : READL : POKEP, L : POKEP+DC, 7 : NEXT 
160 FORP=1341TO1421STEP40:READL POKEP,L:POKEP+DC,7 :NEXT 
165 F0RP= 1461 TO 1454STEP-1 : READL ; POKEP, L : POKEP+DC, 7 : NEXT 

170 FQRP=1414TC1294STEP-40:READL POKEP,L POKEP+DC,7 NEXT 

171 REM 
173 REM 

175 R= 1240 : S-81 : U»R • V-42 

178 PRINT"SI!MWW!!M(WMi!rSW"TAH!';30HJO*<Xl) " " "W1M**»»»»!"X2"Il "M0#<X3>" " 

179 PRINT" 1 'T AB <30>X9 

180 REM 

131 PRINT" aWWtìMuIMnW" T AB < 31 5 TI * 

182 FORI = 1T05: POKER,S : POKEJ,K : FORH=1TO10•HEXTH:POKEU,V'POKEC,N 
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18;• POKER+DC, 13 POKEJ+DC,13'POKEU+DC 13 POKEC+DC .13 NEXTI 
183 IFTI**"008000»THENGCTO3000 

189 REMIFTI*="000001"THENTI f- "233939" 

190 XM-XM+1:IFXM=30THENQ=Q+1 XM«C GOTO290 

200 00TO181 ’ “ 

290 I FQ> 1 OTHENQX=Q-10 

3O0 ONQGOSUB600,610,620,630.640,630.. 660,670,630,600 
303 ONQXOOSUB700,?10,720,730,740,730,760,770.780,790 
306 IFQ=20THENQ*0 QX=0 
310 G0T0181 
330 END 
400 REM 

410 REM LISTA DELLE NAZIONI 
420 REM 

600 L*="EGITTO 
610 L*="AMERICA COSTA EST 
620 L*-"AMERICA COSTA OVEST 
630 L*«"GlAPPONE 
640 L*»"USSR OVEST DI 172* 

630 L*="USSR OVEST DI 112* 

660 L*“"ISOLE CAHARir 
670 LS»"CINA 
680 L*»"MADAGASCAR 
690 L*“"AUSTRALIA 
700 L*="PERU' 

710 L*”"INDIA 
720 L*»"GUATEMALA 
730 L*»”CANADA 
740 L*="BRASILE CENTRO 
730 L**"ALASKA 
760 L*-"MRLESIA 
770 L**"" SOMALI A 
790 L*="MEXICO OVEST..EST*1 
790 L*="COREA 

999 REM 

1000 REM +OPERAZIONI 

1001 REM 

1003 V*=MID*<TI*,3,2) 

1010 X=VAL<LEFT*<TI*,2)>+TR*=" ri" 

1013 IFX>24THENX=X-24 R*=" M" 

1020 IFVAL<LEFT*CTI*,2)»22THENX=0:R*=" M" 

1025 IFX=24THENX=0R*="M" 

1030 XX*=L*+STR*<;X) + " "+V*+R*+" « 

1030 RETURN 
1090 END 

1999 REM 

2000 REM -OPERAZIONI 

2001 REM 

2010 D=VAL<LEFT*<TI*,2>> 

2020 X-D-TR»-" H" 

2030 IFD=0THENX=24-T R*=" 0" 

2040 IFD>0ANDD<T+1THENX=24+D-T R*=" G" 

2044 IFX=24THENX=0 R*="H" 

2045 XX*=LT+STR*<X>+" "+V*+R*+" 

2050 RETURN 

2090 END 
2900 REM 

2950 REM CALCOLO E STAMPA DELLA DATA 
2990 REM 

3000 X1»X1+1 IFX1>7THENX1«I 
3010 X2-X2+1 

3020 IFX2>M0<V1 )THENX2" 1 ’ V1-V1H X3=X3+1 IFV1>12THENV1»1 X3«l ••••-<»• ri»* t 
3030 REM 

304O REM CALCOLO DELL'ANNO BISESTILE 
3050 REM 

3060 IFX9/4“INT<X9/4)ORX9.' , 400*INTCX3/400 • THENMC 2 
3070 IFX9/401 NT < X9/4 1 CRX9, '4000 I NT C X9/480 > THENMO •. 2 > =28 

3100 FORI = 1TO800 : NEXT G0TO178 
4000 REM 

4010 PRINTTRB<9>"IL TEMPO NEL MONDO” PRINT PRINT PRINT 
4020 PRINT"QUESTO PROGRAMMA MOSTRA IL TEMPO MEDIO" 

4030 PRINT"EUROPEO E L'ORA DI VARIE NAZIONI." 


T=I:GOSUB1000:J= 
T-6:GOSUB2000 J= 
T=9:OOSUB20O0:J= 
T=8 OOSUB1000 T„ 
" T=ll : OOSUB 1000 
" T»7 OOSUB1000 J 


: T»2 
T®7 
T»2 
T=7 

■T=6 
T-4 
■1=7 
T=6 
: T=5 
T=6 
: T=6 
: T=2 
T-8 
: T“8 


OOSUB2000 
OOSUB1000 
OOSUB1000 
OOSUB1000 
OOSUB2000 
OOSUB1000 
OOSUB2000 
OOSUB2000 
GOSUB2000 
GOSUB2000 
OOSUB1000 
OOSUB1000 
GOSUB2000 
OOSUB1000 


1339 K 
1352 C= 
1349 O 
1369 C 
J=1209 
1243 C 
1396:0 

1326 
1602 
1609 
1511 
1404 
1431 
1231 
1594 
1188 
1487 
1362 
1431 

1327 


81 :C=J N=42: RETURN 
J: RETURN 
! J ; RETURN 
J RETURN 
C=J: RETURN 
>J RETURN 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 
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40 3 FRI NT 

40 . IH FRI NT "VENGONO FINCHE MOSTRATI : LA DATA, IL •' 
li ' ’ PRINT"GIORNO DELLA SETTIMANA E L'ANNO." 

40".'. PRINT 

•ihi.h PRINT"OLI ANNI BISESTILI VENGONO CALCOLATI" 
in,.", RRINT"CON FEBBRAIO DI 29 GIORNI." 

40,Vi PRINT 

I" o PRINT"IN BASSO SULLO SCHERMO VIENE INDICATA" 

40 *0 PRINT"L'ORA DI 20 NAZIONI." 

4095 PRINT PRINT"LA LINEA 139 SENZA REM FA SCORRERE" 

4096 PRINT"I GIORNI PIU' IN FRETTA." 

4 100 PR I NT 1 PRINT PAI NT "PREMI < «SPAZIO» PER INIZIARE" 
4.-00 OETUf IFW*<>" "THEN42O0 
4.130 F'RINT'TI" 

4 iO0 RETURN 

READV. 
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CONCENTRAZIONE 


Un gioco di carte che mette alla prova la vostra abilità di concentrazione. 
Dovete estrarre delle carte da un mazzo senza prenderne di doppie. Se 
scegliete due volte la stessa carta avete perso. 


10 REM 17. CONCENTRAZIONE 
20 PRINT"O" 

30 FRINT"IMMAGINA DI AVERE UN PACCO DI CARTE" 

40 PRINT"MSCEOLI UNR CARTA 
50 PRINT"SIA DI UNA CERTO SEME" 

60 PRINT"SIA DI UN CERTO VALORE" 

70 PRINT 

80 PRINT"OSE SCEGLI UNA CARTA NUOVA GUADAGNI PUNTI" 
90 PRINT"OSE SCEGLI UNA CARTA GIÀ' ESTRATTA" 

1O0 FRINT"PERDI PUNTI" 

110 PRINT 
120 PRINT 
130 PRINT 

140 DIMP<4,13>/N*<13>,S*<4>,T<4),S<13>,MSa3>*T*<4> 

150 F0RI = 1T04 

160 F0R,T=1T013 

170 P<I,.J)=0 

130 NEXTJ 

190 NEXTI 

200 F0RI=1T013 

210 READN*<I), M*<I) 

220 S<I)*0 
230 NEXTI 
240 F0RI=1T04 
250 RERDS*<I>,TS<I> 

260 T<I>«0 
270 NEXTI 

280 DATRRSSO.- ASSO, DUE7 DUE7 TRE7 TRE.. QURTTRO 

290 DRTRQURTTRO 7 CINQUE4CINQUE,SEI,SEI,SETTE,SETTE 

300 DRTROTTO,OTTO 7 NOVE 7 NOVE,DIECI 7 DIECI,FANTE 

310 DATAFRNTE, REO INR.. REO I NR.. RE.. RE 

320 DRTfìF I OR I.. FI OR I.. QURDR1 7 QIJRDRI 

330 DRTRCUOR1 7 CUOR I.. PICCHE 7 PICCHE 

340 FORZAIT052 

350 X=INT<103*RND<!)+!> 

360 IFX<52THEN600 

37© X*X-4* I NT < X/4 > +1 

330 IFT < X > >12THEN370 

390 PRINT"ESTRAI UN ";S$<X>;TRB<25>• 

400 INPUTR* 

410 F0RI»1T013 
420 I FR$*N$ < I > THEN460 
430 I FR*=M$ •: I > THEN4S0 
440 NEXTI 

450 PRINT"ERRORE ! PROVA DI NUOVO" 

460 PRINT 

470 OQTO390 

480 IFP< XI > « 1THEN530 

490 P<X..I>~1 

500 K»K+TCX>+1 

510 S<n«S<I> + l 

520 T < X > =T < X) +1 

530 PRINT"O.K. IL PUNTEGGIO E' ";K 

540 GOTO830 

550 K>K-<20-T <X> > 

560 PRINT 
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-,v FRI NT"GlA USATA I RIPROVA 
500 TRI NT 
590 GOTO390 

600 X=X+1-13*<INT<XX13>:> 

610 IFS<X»3THEN600 

620 PRINT"SCEGLI UH SEME 31 " ; • TflB<25) 

630 INPUTR* 


640 F0RI=1T04 
650 IFR*=S*CI)THEN71G 
660 IFR*=T*a?THEH710 
670 NEXTI 

680 PRIHT"ERRORE ! PROVA DI NUOVA" 

690 PRIHT 

70O GOTO620 

710 IFP<I,X>=ITHEN780 

720 P<I,X)=1 

730 K=K+S<X>+1 

740 S<X>=S<X.' + S 

750 T<I)=T(I>+1 

760 PRINT"O.K. IL PUNTEGGIO E' “,K 
770 GOTO330 


780 K=K-C10-S<X>> 

790 PRIHT 

800 PRIHT"GIA USATR ! PROVA ANCORA" 

810 PRIHT 
820 GOTO620 
830 NEXTZ 
840 PRIHT 
850 PRIHT 

860 PRIHT“E' TUTTO !" 

370 PRIHT 

380 PRIHT"IL TUO PUNTEGGI FINALE E' ",K 
890 PRIHT PRIHT PRIHT 

900 INPUT"VUOI GIOCARE ANCORA <S/H)";V* 
910 IFV*= " S “ THEH20 
920 END 


READY. 
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LA DANZA DELLE PALLE 


Questo programma grafico vi mostr.a un certo numero di palle che danza¬ 
no sullo schermo. Esso vuole dimostrare quanto segue: 

1) Animazione = le palle si muovono intorno allo schermo. 

2) Programmabilità = potete programmare il movimento di ogni palla. 

3) Multidimensionalità = possono essere presenti più palle, ognuna con il 
suo movimento. Per realizzare questo il programma usa una matrice a 
tre dimensioni. 

Il programma chiede per prima cosa quante palle devono danzare, poi per 
ognuna chiede: 

A) il numero dei movimenti che ogni palla deve fare; 

B) gli spostamenti orizzontale e verticale per ogni movimento. 

Il programma vi mostrerà poi la danza delle palle. 



-E -1 O 1 2 

H 
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Il movimento (A) é 1,2 
Il movimento (B) è —1,-1 
Il movimento (C) è —2,2 

Se desiderate che la palla stia ferma al suo posto date 0,0. 


10 REM 18. Lfl DANZA DELLE PALLE 
20 FRINT"3" 


30 LQ=1824 :HI=2023 1 WI=40 : D=54272 
40 L=HI-L0:TK=81 

50 INPUT"QUANTE PALLE CRINO A 3>",H 
60 DIMSCN.10.2>>TCN),PCN>,CCN} 

70 FORI=lTON: PC I>=INTCRNDC1>#L>+LO 
S0 PRINT 

90 PRINT "QUANTI MOVIMENTI PER LA PALLA N " I 
100 INPUTTCI) 

110 FORJ=1TOT<I> 

120 PRINT 

130 PRINT"COMUNICA IL MOVIMENTO";J; " PER LA PALLA"! 
140 INPUTSa,JM>,S<I,J,2) 

150 NEXTJ:NEXTI 
160 PRINT"3" 


170 F0RI = 1T0N:CCI>=CCI} + 1 
180 IFC(I»T<I>THENC<I) = 1 


190 NP=PCI)+S<I.c<I>,1>+WI*SCI,CCI>,2> 

200 IFNP>HITHENNP=NP-L 

210 IFNP<LOTHENNP=NP+L 

220 POKENP,TK: POKER CI;,32'POKENP+D.6+1 

230 PCI)=NF 

240 NEXTI 

250 GOTO170 


READV. 
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SPACE SHUTTLE 


State cercando di ritornare sulla terra a bordo di una navetta spaziale. 
Sono dati: carburante, velocità e distanze. Il giocatore deve determinare 
l'entità della spinta necessaria per un atterraggio morbido. 

Dopo ogni punto interrogativo dovete comunicare un numero fra 0 e 500. 


10 REM 19. SPACE SHUTTLE 
20 PRINT'TT' 

30 PRI NT " **************************************** “ 

43 PRINT 

30 PRINT"HRI RPPENfi LRSCIRTO UH SRTELLITE" 

60 PRINT"E STRI SCENDENDO PER TORNARE SULLA TERRA" 

70 PRINT"MD0P0 OGNI ? SCRIVI IL COMANDO DI SPINTA" 

80 PRINT"DEL RAZZO CE" UN NUMERO DA 0 A 500)" 

90 PRINT"*OGNI UNITA"=200 NEWTONS=20 KG DI SPINTO" 

100 PRINT"-BUONA FORTUNA-" 

110 PRINT PRINT 

120 PRINT"****************************************" 

130 PRINT 

150 PRINT"TEMPO VELOC ALT CARE SPINTA" 

160 PRINT"SEC M/SEC KM KG N/100” 

170 PRINT 
ISO H=110 

190 H=INT(CH-78>*RND<l)+70) 

200 S=5000 
210 E—10000 
220 T=0 
230 0=2.4 
240 GOTO260 
250 V=-100 

260 V= INT< 1 ee»V* ■ 5)/100 H= INT<1 Q0*H+ ■ 5 >/100 

265 PRINTT;TOB<6>;V;TAB<13>;H;TAB<22) i E;TAB<30>1"F-"J 
270 INPUTF 

280 IFABS < F-250)>251THEN310 
290 IFF>ETHEN330 
300 GOTO350 

310 PRINT"SPINTA NON AMMESSA —RIPETI" 

320 GOTQ260 

330 PRINT" HAI SOLO"; E; "UNITA" DI CARBURANTE—RIPETI " 

340 GOTO260 
350 E=E-F 
360 V1=V 

370 V2=2000*F/(S+E)-10*I 
380 V=V+V2 
390 D=<V1+V2/2)#10 
400 H=H+D/1000 
410 IFHC.01THEN50O 
420 IFE<=0THEN450 
430 T=T+10 
440 GOTO260 

450 PRINT"SEI RIMASTO SENZA CARBURANTE A";H : PRINT"CHILOMETRI DI ALTEZZA" 
460 PRINT"TI FARA" PIACERE SAPERE CHE STAI" 

470 PRINT PRINT 
480 GOTO600 
490 F=0 
300 K=0 
510 K=K+.l 
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520 V1=1 

530 V2=20*F/ ( S+E >-.1*I 
540 V=V+V2 

550 H=H-< V1+V2/2 > /1000 

560 PR I NT "ATTERRAGGI0 IN CIRCA" jK; "SECONDI" 

520 F'RINT" ASPETTA" : FRI NT FRI NT 
580 IFV>=-5THEN640 
530 IFV>=-15THEN670 

600 FRI NT" PRECIPITANDO ALLA VELOCITA' Ti T = - "tl/SEC" 
610 PRINT"CIOE' A",V*3.2*3600/5280;"MPH—OH RAGAZZO i" 
620 PRINT"RESTITUÌSCI LA TUA LICENZA DI VOLO" 

630 END 


640 PRINT"UN ATTERRAGGIO MERAVIGLIOSO A V=" 
650 PRINT"HAI ANCORA",E,"KG DI CARBURANTE" 
660 END 


;V*3.2*3600/5290;"MPH" 


670 PR I NT " CLUNK—RATTLE--RATTLE—SQUINCH " 

6S0 PRINT"V= ",V*3.2*3600/5280,"MPH CIRCA, MA SEI SOPRAVVISSUTO" 


READV. 
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INTRODUZIONE Al NUMERI BINARI 


Per i capitoli successivi, dove avremo direttamente a che fare con i regi¬ 
stri del computer, dobbiamo conoscere qualche cosa sui numeri binari ed e- 
sadecimali. 

Come tutti ormai sanno, i computer capiscono soltanto i numeri binari, 
che possono avere solamente due posizioni: 0 oppure 1. Nel vostro COM¬ 
MODORE 64, come nella maggior parte dei Personal Computer, otto di que¬ 
sti singoli numeri binari (chiamati bit) sono raggruppati insieme in una unità 
chiamata byte. Un byte può assumere ad esempio la seguente forma: 

1010 1010 

Un byte può avere fino a un totale di 256 diverse combinazioni di 1 e 0. La 
combinazione con il valore più basso è 

0000 0000 

La combinazione con il valore più alto è 

1111 1111 

Quello che abbiamo appena visto è la notazione binaria di un numero, ma 
poiché il linguaggio BASIC del vostro computer lavora solamente con nume¬ 
ri decimali, dobbiamo trasformare i numeri da base 2 a base 10. Questo si 
può fare come segue. Ogni posizione in un numero binario ha un moltiplica¬ 
tore, che nell’ordine vale: 

128 64 32 16 8 4 2 1 

Questo significa che, per esempio, un 1 nella parte più a sinistra di un byte 
rappresenta un valore decimale di 128. 

Per ottenere il valore decimale totale di un numero binario dobbiamo som¬ 
mare tutti i moltiplicatori delle posizioni che contengono un 1. Per esempio: 

1111 1111 
: : : : : : : : 

128 +64 +32 +16 +8 +4 +2 +1 = 255 


55 



Oppure 

10 10 1 
: : : : : 
128 +32 +8 


0 1 


+2 


0 


170 


Poiché lavorare con cosi tante cifre è talvolta difficoltoso, c’é un altro mo¬ 
do di rappresentare i numeri binari: la notazione esadecimale. Mediante 
questa notazione quattro cifre binarie sono rappresentate da un numero esa¬ 
decimale. 

Quattro numeri binari possono avere 16 diverse combinazioni: queste 
combinazioni, i loro equivalenti esadecimali e decimali sono elencati qui di 
seguito: 


BINARIO 

ESADECIMALE 

DECI M> 

0000 

0 

o 

0001 

1 

1 

2 

0010 

2 

0011 

3 

3 

0100 

4 

4 

0101 

5 

5 

011 0 

6 

6 

0111 

1000 

7 

8 

7 

8 

1001 

S 

9 

1010 

A 

10 

1 1 

1011 

B 

1 100 

C 

1 2 

1101 

0 

13 

ino 

E 

14 

1111 

F 

15 


Per i numeri esadecimali con più di una cifra dobbiamo conoscere i molti¬ 
plicatori di ogni singola posizione. Per un numero di quattro cifre essi sono i 
seguenti: 

4096 256 16 0 

Abitualmente i numeri esadecimali vengono scritti facendoli precedere 
ualla lettera $ (dollaro), come per esempio: 

$D400 
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Se desideriamo convertire questo numero in un numero decimale dobbia¬ 
mo moltiplicare ogni posizione per il rispettivo moltiplicatore e fare il totale 
dei prodotti cosi ottenuti 

$ D 4 0 0 

: : : : 

13*4096 +4*256 = 54272 

Ecco il listato di un programma che converte i numeri binari nel loro equi¬ 
valente esadecimale. 


100 REM 20. CONVERSIONE DI NUMERI 
110 PRINT'TJ" 

120 PRINT"NUMERO BINARIO - "I 

130 FDRX=1T08 

140 GETAf(X) IFR*CX>=”"THEN140 
150 IFR*<X>“"1"ORA*<X)=»' , 0"THEN1?0 
ISO GOTO140 
170 PRINTR*<X>; 

ISO NEXTX 
130 PRINT:PRINT 
200 1*0 
210 FORX=0TO? 

220 IFVRL < R* < X+1 > > * 1THEI IT=T+2 f< 7-X> 
230 NEXTX 

240 PRINT"EQUIVALENTE DECIMALE "IT 
250 PRINT:PRINT 
260 GOTO120 

RERBV. 


A volte possiamo desiderare che un bit in un registro diventi 1 o 0, mentre 
vogliamo che gli altri bit restino come sono (non conosciamo il loro valore in 
quel momento). Ci sono due comandi che possiamo usare in questo caso: il 
comando AND e il comando OR. Se desideriamo inserire uno 0 usiamo AND 
con un numero binario che ha sette cifre 1 e una cifra 0, ponendo lo 0 nella 
posizione che desideriamo esso abbia nel risultato. Se desideriamo inserire 
un 1 usiamo OR con un numero binario che ha sette cifre 0 e una cifra 1, po¬ 
nendo l’I nelia posizione che desideriamo esso abbia nel risultato. 

Esempio: 

POKE 53272, PEEK(53272)AND(255-128) 

Questa istruzione farà assumere il valore 0 al bit più alto dell'indirizzo 
53272, lasciando inalterati tutti gli altri. Il numero decimale 255 in notazione 
binaria è 1111 1111 e se noi sottraiamo 128 dal tal numero esso diventa 
01111111, poiché il valore del bit più alto è 128. Infine l'istruzione 

POKE 53272,PEEK(53272)OR1 

metterà un 1 nel bit più basso dell’indirizzo 53272 lasciando immutati tutti gli 
altri. 
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CADUTA LIBERA E LANCIO VERSO L’ALTO 


Molti giochi contengono movimenti di lancio o sparo di oggetti. Le traietto¬ 
rie di un oggetto possono essere calcolate con equazioni matematiche e 
queste configurazioni di vari movimenti possono essere raggruppate in ca¬ 
dute libere o lanci secondo curve. 

In questo capitolo simuliamo la caduta libera ed il movimento secondo un 
certo angolo usando il comando POKE per rappresentare un carattere grafi¬ 
co. Noi possiamo pensare alla memoria dello schermo come ad un sistema 
di coordinate. Poiché la memoria dello schermo ha il suo indirizzo più basso 
nell’angolo in alto a sinistra e un normale sistema di coordinate ha la sua ori¬ 
gine nell'angolo in basso a destra, dobbiamo convertire i valori della coordi¬ 
nata Y togliendo il valore calcolato dall’indirizzo alla sommità del video. Le 
equazioni di un oggetto in caduta libera in un sistema di coordinate sono 

V=G*T+VO 
Y=G/2*T*T+VO*T+YO 

dove G è la accelerazione di gravità, T è il tempo in secondi e VO è la velo¬ 
cità iniziale al tempo T=0. Y è l’altezza e YO è l’altezza iniziale al tempo 

T=0. 

Nel primo esempio simuliamo una caduta libera da un'altezza di 2000 me¬ 
tri: lasciamo cadere un solido con una velocità iniziale V0=0. 


100 REM 21. CADUTA UBERA 

110 70=2000 : V@=0 

120 0=—9. Sì 1 : T=0 

130 H=V0 

140 S=175/70 

150 FRINT"0" 

160 Y=Q/2*T*T+V0*T+V0 
170 LOC=1040+40*INT<<24-<V 
1S0 POKE LOC,81 : POKE COL,4 


#S/S>>> COL=55312+40*INI<<24-<V*S/3Ì 


19@ IF V<0 THEN STOP 


>> 


200 T-T+l 
210 OOTO 160 


READY. 

I valori iniziali sono V0=0 e Y0=2000. 

Dopo ogni calcolo della nuova altezza il tempo è incrementato di una u- 
nità. Per cambiare la velocità del movimento si può cambiare I incremento 
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del tempo. Ora cambiamo il programma in modo tale che il movimento del¬ 
l’oggetto sia verso l'alto. Alla velocità iniziale potrete assegnare un valore 
compreso tra 100 e 200 senza che l’oggetto lasci lo schermo. 


100 REM 22. LANCIO VERSO L'ALTO 
110 PRINT"0" 

120 INPUT"VELOCITA' INIZIALE V0 <100-200>";V0 

130 0=-9.81 T=0 

140 V0=0:H*Y0 

150 5=175/2000 

160 Y=G/2*T*T+V0#T+Y0 

1 70 C0L=55312+40# I NT C < 24- < H*S/ 8 > > ) 

180 POKE COL,6 

130 L0C= 1040+40* I NT ( <24- < V*S/8> > > : C0L=55312+40* I NT < < 24- < V*S/S > > > 
200 POKE LOC,81 : POKE COL■4 
210 H-V 

220 IF V<0 THEN STOP 
230 T-T+l 
240 GOTO 160 

READY. 
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IL MOVIMENTO IN DIREZIONE OBLIQUA 


Al precedente movimento sovrapponiamo ora un movimento nella direzio¬ 
ne X con velocità costante pari a VX=C. La posizione nella direzione X è co¬ 
stante dalla equazione X=C*T+V0. Abbiamo le seguenti quattro equazioni: 


VY=^G*T+VY0 

VX=VX0 

Y=— G/2*y=—G/2*T*T+VY0*T+Y0 
X=VX0X=VX0*T+X0 


Tutte le parabole dovrebbero partire dall’angolo in basso a sinistra alle 
coordinate X=0 e Y=0, quindi i valori iniziali di XO e YO sono nulli. Le condi¬ 
zioni di partenza sono: l’angolo e la velocità iniziale. La figura sottostante il¬ 
lustra come la velocità VO si scompone nella velocità iniziale VXO in direzio¬ 
ne X e VYO in direzione Y a seconda dell’angolo iniziale di tiro W. 


J 
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Abbiamo quindi VXO=VO*cosW e VY0=V0*sinW. 

Il programma listato sotto disegna il movimento di un oggetto lanciato in 
direzione obliqua. Per illustrare i vari gradi della potenza del lancio potrete 
introdurre numeri da 100 200. 


100 REM 23. PRRRBOLR 
110 PRINT'TJ" 

120 X0=0V0=0 

130 PRINT".T : INPUT“RNGOLO “;U 

140 IHPUT-PORZR ",V0 

150 U=W*2*3.1416/360 
160 VX=V0*COS<U> 

170 VV-V0*S1N<U> 

130 G=9.81 

190 T-0:H-0 L-0 

200 V=-G/2*T*T+VV*T 

210 IF V<0 THEH FOR B-l TO 500 NEXT D GOTO 130 
220 X»VX*T 

230 LOC-1024+40*INT<24-V/50>*INT<X/50> 

240 COL«55236-»40* INT ( 24-V/50 ) ♦ I NT < X/50 > 

250 1F LOCO024 THEN T-TM 00T0 200 

260 POKE L0C,31 P0KE COL.4 

270 L=XH-V 

230 T=T+1 

290 GOTO 200 

RERDV. 


62 



LA GRAFICA CON IL COMMODORE 64 


Normalmente la memoria dello schermo del COMMODORE 64 parte dalla 
locazione 1024 ($0400) e va fino alla locazione 2023 ($07E7). per un totale 
di 1000 differenti posizioni (40 caratteri per 25 righe). 

Ogni locazione può avere un valore da 0 a 255 per rappresentare i diversi 
caratteri presi dalla tabella dei caratteri. 

In corrispondenza con la memoria dello schermo ci sono 1000 locazioni di 
memoria che vanno dall'indirizzo 55296 fino al 56295 (da $D800 a $DBE7) e 
che definiscono il colore del carattere nel corrispondente indirizzo della me¬ 
moria dello schermo. L'insieme dei caratteri usati può essere sia quello già 
assemblato nella macchina, memorizzato nella ROM del vostro COMMODO¬ 
RE 64, sia uno qualunque creato da voi e che memorizzerete nella RAM. Per 
comunicare al computer quale insieme di caratteri deve utilizzare, occorre 
posizionare certi bit in un registro di controllo localizzato all’indirizzo 53272. 
Questi sono i bit 1,2 e 3, mentre il bit 0 è ignorato in questo registro di con¬ 
trollo. Se i quattro bit più bassi rappresentano un valore di 0 (o 1), come set 
di caratteri vengono utilizzati i 2K di memoria più bassi ($0000-$07FF), 
mentre un valore di 2 (o 3) seleziona i successivi 2K ($0800-$0FFF). 

Gli altri numeri possibili sono: 

4 (or 5) -> $1000-$17FF (normale) 

6 (or 7) -> $1800-$1FFF (lettere minuscole) 

8 (or 9) -> $2000-27FF 


1 0 

( o r 

11 ) 

-> 

$2800-$2FFF 

12 

( o r 

13 ) 

-> 

$3000-$37FF 

14 

( o r 

15) 

-> 

$3800-$3FFF 


Ogni carattere occupa sempre 64 bit pari a 8 byte. Per illustrare l’uso del 
set di caratteri provate il programma listato più avanti. Supponiamo di volere 
un set di caratteri simile a quello regolare, ma leggermente diverso, per e- 
sempio desideriamo che ogni lettera sia sottolineata. Questo può essere fat¬ 
to nel seguente modo. 
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COLOR-RAM 
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Trasferiamo nella RAM del computer il set di caratteri che normalmente è 
memorizzato nella ROM, eseguiamo le nostre variazioni e poi faremo sem¬ 
pre riferimento a questo gruppo di caratteri. Il programma esegue il trasferi¬ 
mento di un gruppo di 32 caratteri. Per fare questo il programma deve disat¬ 
tivare un interrupt, il che avviene alla linea 110, dopo il trasferimento l'inter- 
rupt è attivato di nuovo (linea 170). 

La linea 120 scollega l'l/0 (INPUT/OUTPUT) e connette la ROM dei carat¬ 
teri, la linea 160 ritorna al modo normale. La linea 180 posiziona il computer 
dal normale set di caratteri contenuti nella ROM a quello appena creato nella 
RAM. 

Non appena avrete fatto partire il programma e il computer avrà eseguito 
la linea 180, noterete che tutte le lettere sono rappresentate normalmente, 
mentre al posto dei numeri appariranno dei simboli confusi. Questo accade 
perché noi abbiamo copiato soltanto i primi 32 caratteri del set e quando il 
computer cerca di costruire l'immagine di un numero trova nella RAM dei 
numeri casuali. Per trasferire più caratteri dovete semplicemente cambiare 
il numero 255 in 511 nella linea 130 e dare un nuovo RUN al programma. 

READV. 

100 REM 24. TRANSFERIMENTO DEL SET DEI CARATTERI 

110 P0KE36334,PEEK < 36334)RND234 

120 PQKE1.PEEK <1> AND231 

130 FORI-0TO233 

140 POKE12288*I.PEEK<33248*I> 

130 NEXTI 

160 POKE1. PEEK< 1 >OR4 
170 P0KE36334,PEEK<36334>ORI 
130 F0KES3272, < PEEK < 33272 > AND240 > + 12 
190 END 

READV. 

Per ottenere i caratteri sottolineati usiamo il programma elencato sotto, 
che semplicemente scrive un 255 (che rappresenta un trattino continuo) 
nell'ultimo byte, l'ottavo, di ogni carattere. 

READV. 

199 REM 23. CARATTERI SOTTOLINEATI 

200 FORX-0TO64 

210 POKE12288*7*X*8.255 
220 NEXTX 

READV. 

Ora noi desideriamo trasferire un paesaggio di nostra creazione sullo 
schermo usando un set di caratteri espressamente progettato. Pensiamo di 
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disegnare una montagna: ci servono tre diversi caratteri grafici, uno per rap¬ 
presentare la salita uno per la discesa e uno continuo per riempire il dise¬ 
gno. 

Assegneremo il carattere raffigurante la salita al tasto A, quello di riempi¬ 
mento al tasto B e quello per la discesa al tasto C. I caratteri usati sono 
creati facilmente. 



C 


128 
192 
224 
240 
248 
252 

254 

255 

Il programma listato crea un nuovo set di caratteri partendo dalla locazio¬ 
ne 12288. Solamente i tasti A', B’ e C' hanno un significato in questo 
nuovo gruppo di caratteri e poiché i caratteri usati sono il secondo, il terzo e 
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il quarto del set medesimo, dobbiamo identificare un carattere (il primo ca¬ 
rattere di ogni gruppo è assegnato al tasto @). 

Questo è il motivo per cui nella linea 130 un 8 è aggiunto all'indirizzo. La. 
linea 150 innesca il nuovo set di caratteri, ma non appena questa linea è e- 
Jseguita voi dovreste vedere un po' di confusione sullo schermo. Ogni volta 
che voi premete ‘A’, 'B' o ‘C’ i simboli desiderati dovrebbero apparire. Voi 
potreste infatti andare avanti e disegnare ora una montagna usando i tasti di 
controllo del cursore e i tasti 'A', 'B', ‘C. Premere RETURN causerebbe un 
SINTAX ERROR: 

per ritornare al modo normale di rappresentazione dovete premere contem¬ 
poraneamente i tasti RUN/STOP e RESTORE. 

RERDV. 

100 REM 26. NUOVI SIMBOLI PER ABC 
110 FORX-0TO23 
120 READfi 

130 POKE12288+8+X,fì 
140 NEXTX 

130 P0KE33272,CPEEK<53272?AND240>+12 
200 DATAI,3,7,15,31.63.127.233 
210 DRTA233,233,233,233,233,233,233,233 
220 DRTR128,192,224,240,248,232,254,235 

RERDV. 

A questo punto non dovreste avere problemi a mettere insieme i vostri 
simboli per rappresentare una montagna. Il programma listato sotto fa pro¬ 
prio questo e in più pittura la montagna in tre diversi colori scrivendo dei nu¬ 
meri negli indirizzi corrispondenti della RAM dei colori (linee da 400 a 480). 


100 REM 27. MONTAGNE 
110 FORX-0TO23 
120 RERDR 

130 POKE12288+8+X-R 
140 NEXTX 

130 P0KE53272,<PEEK<33272?RND240)+12 
200 DATAI,3,7,13-31,63,127,253 
210 DRTR253,233,233,233,233,235,235,233 
220 DRTR128,192,224,240,248,232,234,233 
230 PRINT"3" 

300 PRINT ! 'KCffiSiKSD0Kl®®a«W''; 

310 PRINT" RC" 

320 PRINT" ABBC" 

330 PRINT" RBBBBC" 

340 PRINT" RBBBBBBC" 

350 PRINT" ABBBBBBBBC" 

360 PRINT"RBBBBBBBBBBC" 

400 F0RX-53776TO55776+39 
410 POKEX,l : REM UHITE 
420 NEXTX 

430 F0RX=55816T033916+79 
440 POKEX,12 REM MED GREV 
430 NEXTX 

460 F0RX-33896T053396+119 
470 POKEX,3 : REM GREEN 
480 NEXTX 
490 GOTO490 

RERDV. 
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Il passo successivo è quello di creare simboli diversi e di costuire un 
«paesaggio». Il programma successivo vi mostra qualche cosa a questo pro¬ 
posito, ma ora potrete sbrigliare la vostra fantasia e creare varie immagini di 
sfondo. 


100 REM 28. PAESAGGIO 
110 FORX-0TO47 
120 READA 

130 P0KE12288+8+X,A 
140 NEXTX 

130 P0KE33272, <PEEK<53272:>fiNB240> + 12 
160 FORX-0TO7 

170 POKE12288+32#8+X,0 REM CRNCELLR 
180 NEXTX 

200 DATAI,3,7,15.31.63.127,253 : REM 'fi' 

210 DRTR233,233,255,253;255,255,255, 253 : REM 'B' 

220 DRTR128,192,224,240,248,232,254,255-REM 'C' 

230 DATAI,1,15,13,1,1,1,1 : REM 'B' 

240 DRTR128,128,240,240,128,128,128,123 : REM 'E' 

250 DRTR253,233,195,195,195,135,255,253 : REM 'F' 

290 PRINT"?!" 

300 PRINT"»aH«««IP , '; 

310 PRINT" RC" 

320 PRINT" DE RBBC" 

330 PRINT" RC RC RBBBBC" 

340 PRINT" RBBC RBBC RBBBBBBC" 

330 PRINT" RBBBBC RBBBBC RBBBBBBBBC" 

360 PRINT" RBBBBBBC RBBBBBBC RBBBBBBBBBBC" 

370 PRINT" RBBBBBBBBC RBBBBBBBBC RBBBBBBBBBBBBC" 

380 PRINT"RBBEBBBBBBBCRBBBBBBBBBBCRBBBBBBBBBBBBBBC" 

400 PRINT"W!IOKiMai^«ilWi!ISS«tì" ; 

410 PRINT" RBBBBBBBC" 

420 PRINT" FFFFFFF RBBBBBBC" 

430 PRINT" FFFFFFF FFFFFF" 

440 PRINT" FFFFFFF FFFFFF" 

430 PRINT" FFFFFFF FFFFFF" 

460 PRINT" FFFFFFF FFFFFF" 

470 PRINT" FFFFFFF FFFFFF" 

480 PRINT'PRINT"BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEBBBBBBBBBBBBBBBBBBBB"; 
490 PRI NT " BBBBBBBBBBBBBBBBBBBB " 

300 FORX=0TQ119 

510 POKEX+35376,1 REM NEVE 

520 NEXTX 

530 FORX-0TO119 

540 POKEX+55496,12 : REM ROCCE 

350 NEXTX 

560 FORX=0TO79 

570 POKEX+53616,5 : REM ERBA 

580 NEXTX 

590 FORX=0TO39 

600 POKEX+55816,2 : REM TETTO 

610 NEXTX 

620 FDRX=0TO239 

630 IFX>20ANDX<40THENPOKE55856+X,2 : NEXTX 

648 POKEX+53856,7■REM CRSR 

650 NEXTX 

660 FORX=0TO79 

670 POKEX+56136,15 REM STRADA 
680 NEXTX 

700 POKE 55416+5,9 : PQKE55416+6,9 : REM INCROCIO 
710 GOTO710 

RERDV. 
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GRAFICA IN ALTA RISOLUZIONE 


Con il COMMODORE 64 avrete la possibilità di disegnare con la grafica ad 
alta risoluzione, in cui ogni punto in una matrice di 320*200 può essere con¬ 
trollato separatamente. 

In grafica ad alta risoluzione 8 bit formano un byte, 8 byte definiscono uno 
spazio (l’area che nel modo “carattere” è occupata per l’appunto da un ca¬ 
rattere), 40 spazi definiscono una linea e 25 linee definiscono l’intero scher¬ 
mo. Quindi abbiamo un totale di 8 *40*25=8000 byte o 8*8000=64000 punti 
sullo schermo. Il byte con l’indirizzo più basso (byte 0) è quello che defini¬ 
sce la prima linea nello spazio dell’angolo superiore sinistro. Il byte 1 defini¬ 
sce la seconda linea di questo spazio, il byte 7 definisce la linea di fondo del 
primo spazio. Il byte 8 definisce la prima linea del secondo spazio e così via. 
Il byte 319 definisce l’ultima linea dello spazio 40. L'ultimo byte sullo scher¬ 
mo è quello con il numero 7999, situato nell’ultima linea dello spazio nell'an¬ 
golo più basso a destra del video. 

L'indirizzo di base per la grafica ad alta risoluzione può essere posto nella 
locazione 53272. Il seguente comando posiziona l’indirizzo di base a 8192 
($2000), per esempio 

POKE53272, PEEK (53272) OR8 

Questo assegnerà tutti gli indirizzi da 8192 a 16383 alla grafica ad alta ri¬ 
soluzione. Il modo grafico ad alta risoluzione è attivato posizionando il bit 5 
nel registro di indirizzo 53265 a 1 con il seguente comando: 

POKE53265.PEEK (53265)OR32 

Dopo l'esecuzione di questi due comandi lo schermo sarà riempito con 
simboli grafici casuali. Questo avviene perché la partizione assegnata alla 
grafica ad alta risoluzione è riempita con dati casuali, ora interpretati come 
segni grafici. 

Per cancellare questa parte di memoria dovrete digitare: 

FORI =8192TQ16383: POKEI,Q:N EXT I 
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Il colore dello sfondo e i punti con alta risoluzione grafica sono definiti dal 
contenuti di quella che normalmente è la memoria dello schermo (indirizzi 
da 1024 a 2023). I quattro bit superiori di questi indirizzi ora definiscono il 
colore di un punto nel corrispondente spazio sullo schermo; i quattro bit infe¬ 
riori definiscono il colore dello sfondo. Se avete deciso il medesimo colore 
su tutto lo schermo, dovete digitare il seguente comando: 

FORI =1024TO2023:POKEI,16*DC + BC:N EXT I 

dove DC è il colore dei punti e BC è il colore dello sfondo (entrambi i valori 
possono variare da 0 a 15). 


Per indirizzare un singolo punto in alta risoluzione dobbiamo dare le coor¬ 
dinate X e Y e convertirle nell’indirizzo di un byte. Il valore del byte definisce 
quale bit a quell'indirizzo deve essere attivato. Le formule per questi calcoli 
sono: 


numero della fila=coordinata Y/8 
carattere=coordinata X/8 
numero della linea=coordinata Y AND 7 
bit=7 - (X AND 7) 

indirizzo del byte indirizzo della base+320*numero della fila+8*carat- 
tere+numero della linea 


All’interno dell'indirizzo del byte dobbiamo assegnare un valore con l’istru¬ 
zione POKE, riferendoci alla posizione del bit desiderato. In quel byte e allo 
scopo di lasciare inalterati gli altri bit ad esso appartenenti e già posizionati, 
usiamo il seguente comando: 

POKE indirizzo del byte, PEEK (indirizzo del byte) OR2 bit 


Il programma listato a fianco esegue tutti questi calcoli. Voi dovete inseri¬ 
re le coordinate di un punto e il programma lo visualizzerà sullo schermo alla 
posizione corrispondente. 

Potrete poi estendere il programma per disegnare linee, ecc. 

Se scriviamo una subroutine al di fuori di questo programma, possiamo 
calcolare le coordinate (ad esempio di una curva) e poi saltare a questa su¬ 
broutine per disegnare i punti calcolati. 
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100 REM 29. C-RAFICA fin ALTA RISOLUZIONE 

110 P0KE33272210R8 P0KE33263 270R32 

120 PRINT-ir. BA=8192 

130 F0RC*BAT0BA+7999 

140 POKEC , 0 

130 NEXTC 

160 P0KE33263.27 P0KE33272.21 
170 INPUT"COORDINATA X C0-3I9>*,X 
180 INPUT"COORDINATA V <e- 199 .'";V 
190 P0KE33272,210R8 
200 P0KE33263.270R32 
210 R0-INT(V/8> 

220 CH-INT(XX8> 

230 LI-VAND7 
240 BI«7-<XAND7> 

230 BV-BA*RO»320*CH*8*LI 
260 POKEBV.PEEK<BV >0R2 TBI 
270 FORD»1T02000 NEXTD 
280 P0KE33263.27 P0KE33272.21 
290 PRINT-*-, GOTO 170 

READY. 


Il programma successivo vi permette di disegnare una retta uscente dal 
punto di coordinate XI,Y1 fino al punto di coordinate X2,Y2: questo pro¬ 
gramma quindi sostituisce il comando DRAW TO (disegna fino a) che man¬ 
ca nel COMMODORE 64. 


3 REM 30. SIMULAZIONE DELL'ISTRUZIONE DRAW TO (DISEGNA FINO A> 
10 INPUT"ASCISSA INIZIALE X1";X1 
20 INPUT "ORDÌ NATA INIZIALE VI", VI 
30 INPUT"ASCISSA FINALE X2",X2 

40 INPUT"ORDÌNATA FINALE V2",V2 

42 POKE 33263.39 
44 POKE 33272,23 

43 FOR V-1024 TO 2023 

46 POKE V,16 

47 NEXT V 

48 FOR T-8192 TO 16383 

49 POKE T,0 
30 NEXT T 

33 DX-X2-X1 DV-V2-V1 

57 IF ABS(DVXABS(DX) THEN 64 

38 FOR VL-V1 TO V2 STEP SON(DV> 

39 X»DX/DV*VL*X1 

60 V-VL 

61 QOSUB 200 

62 NEXT VL 

63 GOTO 300 

64 FOR XL-X1 TO X2 STEP SONORO 
63 X-XL 

66 V»DV/DX*XL*V1 

67 GOSUB 200 

68 NEXT XL 

69 GOTO 300 
200 VP-INT(V/8> 

210 XP«INTCX/8> 

220 A1=(VP*40»XP>*8 
230 AV»V-8*VP*A1 
240 AA=8192 

230 R-X-84X 0 
260 M-2K7-R) 

270 !-PEEK(RV+AA> 

280 POKE AV+AA,I OR M 
290 RETURN 

300 FOR T-l TO 3000 NEXT T 
310 POKE 33263.27 POKE 33272,21 
320 END 
READY. 
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Ecco la subroutine per disegnare un singolo punto in alta risoluzione: do¬ 
vete assegnare un valore da 0 a 319 alla variabile X e un valore da 0 a 199 
alla variabile Y e saltare alla subroutine con il comando GOSUB 

FILA=INT (Y/8) 

CARATTERE=INT (X/8) 

LINEA=Y AND 7 
BIT=7—(X AND 7) 

BYTE=BASE + FILA*320 + CARATTERE*8+LINEA 
POKE BYTE.PEEK (BYTE) OR 2 *BIT 
RETURN 


Segue ora un altro programma che utilizza questa subroutine: si tratta del¬ 
la versione in alta risoluzione del programma già listato precedentemente in 
questo libro per simulare il movimento in direzione obliqua di un oggetto 


100 REM 31. MOVIMENTO IN DIREZIONE OBLIQUA (IN ALTA RISOLUZIONE» 
110 PRINT-3" 

120 INPUT"INSERÌSCI L-RNOOLO <0-90;",U 
130 INPUT"INSERISCI LR FORZA <0-80>“,V0 
140 U«W*2*3. 1416/360 

145 PRINT PRINT'PULISCO L'AREA DELL'ALTA RISOLUZIONE..." 

150 FORI-0TO7999 
160 P0KE8192*!.0 
170 NEXTI 

175 PRINT“PULÌSCO L'AREA DEL COLORE..." 

180 FORI-0TO999 
190 POKE1024»I,16 
200 NEXTI 

210 BR-8192 P0KE53272.210R8 POKE53263,270R32 
220 VX-V0*COS<U> 

230 VV-V0*SIN<M> 

240 0-9.81 

250 T-0 H-0 L-0 

260 V—0/2*T*T*W*T V-200-V 

270 X—VX*T 

280 IFV>200THEN280 

290 IFV<0THEN310 

300 OOSUB1000 

310 L«X H-V 

320 T-T*.1 

330 OOTO260 

1000 REM SUBROUTINE DI TRACCIAMENTO DEL GRAFICO 
1010 R0-INT<V/8) 

1020 CH-INT <X/8> 

1030 LI-VAND7 
1040 BI-7-CXAND7» 

1050 BV-8A»RO*320+CH*8*LI 
1060 P0KEBV,PEEK<BV»0R2TBI 
1070 RETURN 

READV. 


Il programma successivo mostra come è possibile rappresentare una fun¬ 
zione matematica utilizzando la grafica ad alta risoluzione. 
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100 REM 32. GRAFICO 01 UNA FUNZIONE MATEMATICA 

110 FORI=0TO7999 

120 P0KE8192+I> 0 

130 NEXTI 

140 FORI=0TO999 

150 POKE1024+1,16 

160 NEXTI 

170 EA=8192 : P0KE53272,210RS : P0KE53265.27QRo2 

130 FORI-0TO360STEP3 

190 D=I*ir/180 

200 V=30*SIN(D>:V=-V+100 

210 X=I/1.5 

228 GOSUB1000 

230 NEXTI 

240 G0TO240 

1000 REM SUBROUTINE 01 TRACCIAMENTO DEL GRAFICO 
1810 R0»INT<V/8> 

1820 CH-INT <X/8> 

1030 LI=VANO? 

1040 BI=7-CXAND?> 

1850 BV=BR+RO#320+CH#8+LI 
1060 POKEBV.. PEEK < BV > 0R2 TBI 
1870 RETURN 

REAOV. 
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LA FUNZIONE MULTICOLORE 


Nella grafica ad alta risoluzione potete controllare ogni punto sullo scher¬ 
mo. Ogni bit sullo schermo può valere uno, e quindi rappresentare un punto 
nel colore definito nel registro dei colori corrispondente a quello spazio, o 0 
e rappresentare uno spazio bianco mostrato nel colore dello sfondo. 

Se operate nel modo multicolore potete avere quattro diversi colori per o- 
gni punto. Poiché sono necessari due bit per definire un'uscita di quattro 
possibili combinazioni, due bit nella direzione orizzontale sono visti come u- 
niti insieme. 

Questo naturalmente dà origine ad una risoluzione in senso orizzontale, 
che è solamente la metà di quella normale, poiché un punto in questo modo 
di funzionare del computer è due volte più largo di quello rappresentato nella 
visione normale. Per attivare il modo multicolore il bit 4 nell’indirizzo 53270 
($D016) deve essere posto a 1 impiegando il seguente comando 

POKE53270, PEEK (53270) ORI 6 

Dopo che avete attivato il modo multicolore con questo comando dovete 
ancora scegliere, per ogni spazio, tra modo di impiego multicolore e modo in 
grafica ad alta risoluzione e questo dipende dal numero che voi scrivete nel¬ 
la corrispondente locazione della RAM dei colori. 

Se inserite, con il comando POKE, un numero da 0 a 7 nella memoria di 
colore, lo spazio corrispondente sullo schermo sarà visualizzato nella grafi¬ 
ca ad alta risoluzione standard. 

Ogni bit posizionato sarà mostrato nel colore definito nella particolare lo¬ 
cazione della RAM di colore. Se voi inserite, con la POKE, un numero da 8 a 
15 nella memoria di colore, allora lo spazio corrispondente sarà visualizzato 
in modo multicolore. 

In dettaglio: se una coppia di bit é 00, allora nella corrispondente locazio¬ 
ne é mostrato il colore dello sfondo numero zero, il normale colore dello 
schermo. La coppia di bit 01 è per il colore di sfondo numero uno, la coppia 
10 è per il numero due e infine la coppia di bit 11 produce la visualizzazione 
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del colore specificato nella RAM di colore (valori da 0 a 7). Le locazioni per 
questi colori sono: 


sfondo N. 
sfondo N. 
sfondo N. 


0: 55281 ($D021) 
1: 55282 ($D022) 
2: 55283 ($D023) 
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SCROLLING REGOLARE 


Il COMMODORE 64 vi permette di effettuare una traslazione regolare 
(scrolling) dell’intero schermo in direzione orizzontale oppure verticale, un 
pixel (unità grafica) per volta, fino a 7 pixel. Se desiderate avere un movi¬ 
mento più esteso dovrete procedere come segue. 

Dopo uno scrolling di 7 pixel, chiamate un programma in linguaggio mac¬ 
china (è scritto in linguaggio macchina per motivi di rapidità di esecuzione), 
che prima pone lo chermo nella sua posizione originale, poi muove l'intera 
memoria del video di un carattere o di una linea per volta a seconda se lo 
scrolling è orizzontale o verticale. Questo movimento è chiamato scrolling ir¬ 
regolare. Quando traslate orrizzontalmente dovete restringere lo schermo a 
38 colonne con il seguente comando 
POK E53265, PEEK (53265) AND247 

Quando traslate verticalmente dovete restringere lo schermo a 24 righe 
con il seguente comando 

POKE53270.PEEK (53270) AN D 247 

Questa procedura vi lascia spazio per partire con lo scrolling di nuovi dati. 
Dai tre bit inferiori di queste locazioni dipende la bontà dello scrolling. 

I seguenti comandi eseguono un buon scrolling 

POKE53270,(PEEK(53270) AND248) +X 

per movimenti orizzontali, e 

POKE53265, (PEEK(53265) AND248) +Y 
per movimenti verticali. X e Y possono assumere valori da 0 a 7. Digitate e 
lanciate il seguente programma: 

9 REH 33. SCROLLING (SPOSTAMENTO) DELLO SCHERMO 

10 POKE53270,PEEK < 53270 > RNB247 
20 FORX=7TO0STEP-1 

30 POKE33270, < PEEK < 53270 ) RND24S > +X 
40 FORD-lTO100 NEXTD 
30 NEXTX 
60 OOTO20 

RERDV. 

Come vedrete, i caratteri mostrati sullo schermo trasleranno di 7 pixel 
verso sinistra poi il movimento ripartirà di nuovo. 
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I! seguente programma in linguaggio macchina riposiziona lo scrolling 
nella posizione originale, poi muove l’intera memoria di schermo di un carat¬ 
tere verso sinistra. La miglior locazione per il programma in linguaggio mac¬ 
china è all’indirizzo 49152 ($C000), poiché questa area non è occupata da 
programmi in BASIC. Ecco il programma 


$cooo 

A9 

07 



LDA 

#7 



$C 00 2 

OD 

16 

DO 


ORA 

$D01 6 



$0005 

8D 

16 

DO 


STA 

$D01 6 



$0008 

A2 

00 



LDX 

#0' 



$C00A 

BD 

01 

04 

MI 

LDA 

$0401,X 

• 

co 

rf 

Line 

$C 00D 

9 D 

00 

04 


STA 

$0400,X 



$001 0 

BD 

29 

04 


LDA 

$0429,X 

; 2nd 

Line 

$0013 

9D 

28 

• 

04 


STA 

$0428,X 

• 




BD 

• 

01 

07 


LDA 

• 

$0701 ,X 

; 25 th 

L i n 


9 D 

CO 

07 


STA 

$0700 ,X 




E8 




INX 





E0 

28 



CPX 

#40 




F0 

03 



BEO 

RET 




40 

0A 

CO 


JMP 

MI 




60 



RET 

RTS 





Il programma in BASIC listato più sotto inserisce questo programma in 
linguaggio macchina con le istruzioni POKE, esegue lo scrolling regolare, 
chiama la routine in linguaggio macchina con il comando SYS(49152) per lo 
scrolling irregolare e infine riparte di nuovo. 

Con la grafica ad alta risoluzione il programma in linguaggio macchina per 
muovere l'intero schermo è diverso perché in quel modo di impiego devono 
essere spostati 8000 byte invece di 1000. 


Nota: se state usando colori diversi sullo schermo dovete anche spostare i 
contenuti della RAM di colore nella stessa direzione della RAM di schermo. 
Un programma in linguaggio macchina è sempre necessario. 
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100 REM 34. SCROLLINO CSPOSTRMENTO> DELLO SCHERMO VERSO SINISTRO 

110 FORX=0TO168 

120 READ 2 

130 P0KE49152+X,2 

140 NEXTX 

150 POKE53270,PEEK<53270 > RND247 

160 POKE53270, CPEEKI532?0)RNP248]>+7 

170 FORP=6TO0STEP-1 

180 POKE53270,< PEEK < 53270 >RND248 > +P 

200 NEXTP 

210 SVS<49152> 

220 GOTO170 

248 DRTR169,7,. 13/22,208, 141,22,208 
250 DRTR162,0,189,1,4,157,0,4 
260 DRTR189,41,4,157,40,4,189,81,4,157,30,4 
270 DRTR1S9,121,4,157,120,4,183,161,4,157,160,4 
280 DRTR189,201,4,157,200,4,139,241,4,157.240,4 
290 DRTR139,25,5,157,24,5,189,65,5,157,64,5 
300 DRTR1S9,105,5,157,104,5,189,145,5,157,144,5 
310 DRTR189,185,5,157,184,5,189,225,5,157,224,5 
320 DRTR189,9,6,157,8,6,189,49,6,157,43,6 
330 DRTR189,89,6,157,88,6,189,129,6,157,123,6 
340 DRTA139,169,6,157,168,6,139,209,6,157,208,6 
350 DRTR189,249,6,157,248,6,139,33,7,157,32,7 
360 DRTR189,73,7,157,72,7,189,113,7,157,112,7 
370 DRTR183,153,7,157,152,7,139,193,7,157,192,7 
380 DRTR232,224,40,240,3,76,10,192,96 

RERDV. 
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SPRITE 


In questo capitolo parleremo di una caratteristica veramente speciale del 
COMMODORE 64: gli sprite. 

Uno sprite è un oggetto grafico la cui forma e colore sono definibili dall’u¬ 
tente e che può essere facilmente mosso sullo schermo semplicemente co¬ 
municando al computer le coordinate del video, dove desiderate che esso 
sia visualizzato. Questo è il vantaggio della grafica con gli sprite sulla grafica 
convenzionale, dove voi dovete muovere i vostri oggetti grafici nella memo¬ 
ria, se volete cambiare ad essi di posizione sullo schermo. Quindi gli sprite 
grafici sono perfettamente adatti per programmare giochi con oggetti in ra¬ 
pido movimento. 

Con il COMMODORE 64 voi potete rappresentare e muovere indipenden¬ 
temente fino a otto sprite (dallo sprite 0 allo sprite 7). I registri che vi per¬ 
mettono di controllare questi sprite sono nelle locazioni di memoria che par¬ 
tono da $D000=53248. Il segno dollaro ($) che precede un numero significa 
che questo numero è in base esadecimale. Un numero senza nulla che lo 
precede è un normale numero in base dieci. D'ora in avanti assegneremo 
questo indirizzo alla variabile V. I registri hanno quindi indirizzi come 
V+6,V+23, ecc. 

Prima che uno sprite appaia sullo schermo sono necessari molti passaggi. 
Dobbiamo introdurre le seguenti definizioni: 

1) Gli sprite devono essere attivati. L’indirizzo per farlo è il V+21. Se desi¬ 
deriamo attivare lo sprite 0 dobbiamo memorizzare un 1 (con la POKE) in 
questo indirizzo, per lo sprite 7 è richiesto un 128. In generale il numero 
da memorizzare è pari a 2 elevato al numero dello sprite. Se occorrono 
tutti gli otto sprite, dobbiamo dare 255 come argomento della POKE. Per 
esempio il comando POKE V+21,6 attiverà gli sprite 1 e 2. 

2) Occorre definire l’area di memoria che dà la forma allo sprite. Ogni sprite 
usa 64 byte di memoria (attualmente solo 63). Nelle locazioni di memo¬ 
ria da 2040 (per lo sprite 0) alla 2047 (per lo sprite 7) dobbiamo scrivere 
il numero del blocco di 64 byte usato per quel particolare sprite. Qui sono 
consigliati i numeri da 192 a 199. Per esempio il comando POKE2040, 
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192 assegnerà i 64 byte partendo da 192*64=12288 allo sprite 0. All'In¬ 
terno degli indirizzi da 12288 a 12350 dobbiamo ora scrivere la forma 
dello sprite 0. Ogni sprite consiste di una griglia di 24 per 21 punti. Ogni 
punto di questa griglia può essere acceso o spento. Per completare que¬ 
sto ultimo argomento occorre aggiungere che è possibile assegnare la 
medesima area di memoria a più di uno sprite, con il risultato di avere più 
sprite con la stessa forma. 

3) Occorre definire il colore dello sprite. I registri dei colori sono gli indirizzi 
da V+39 (per lo sprite 0) al V+46 (per lo sprite 7) e su questi intervenia¬ 
mo con la POKE per stabilire il colore desiderato con valori da 0 a 15. 

4) Occorre definire la posizione orizzontale sullo schermo mediante gli indi¬ 
rizzi V+0 (sprite 0), V+2 (sprite 1) eccetera fino a V+14 (sprite 7). Si 
può usare un valore da 0 a 255: un valore di 255 posizionerà io sprite in 
qualche punto della metà destra dello schermo. Se desiderate muovere 
uno sprite ulteriormente verso destra dovete posizionare i suoi corrispon¬ 
denti bit nel registro V+16 (MSB-BIT). 

Per esempio se desiderate porre lo sprite 2 nella posizione orizzontale 
265, dovete mettere un 4 con la POKE nella locazione V+16 e un 10 nella 
locazione V+4. 

5) Occorre definire la posizione verticale sullo schermo. 

Questo si fa più facilmente perché sono sufficienti 256 posizioni diver¬ 
se per coprire l’intera altezza dello schermo: basta porre con la POKE il 
valore desiderato (da 0 a 255) nella locazione V+1 fino alla V+15. (V+1 
per lo sprite 0, V+3 per lo sprite 1, V+5 per lo sprite 2 e cosi via). 

Nota: la definizione della posizione dello sprite (sia in orizzontale sia in 
verticale) si riferisce all’angolo superiore sinistro dello sprite. Una volta 
definiti questi cinque parametri voi dovreste vedere il vostro sprite sullo 
schermo a meno che i valori X o Y abbiano un valore tale da posizionare 
lo sprite al di fuori dell’area visibile. 

Aggiungiamo alcune considerazioni riguardanti i registri degli sprite. 

6) L’estensione di uno sprite in direzione X può essere raddoppiata posizio¬ 
nando a 1 il corrispondente bit nel registro V+29. Per esempio POKE 
V+29,8 mostrerà lo sprite 8 con una larghezza doppia nella direzione X. 

7) L’estensione di uno sprite in direzione Y può essere raddoppiata posizio¬ 
nando a 1 il corrispondente bit nel registro V+23. Entrambe le larghezze 
(in orizzontale X e in verticale Y) possono essere riportate alla dimensio¬ 
ne normale riposizionando a 0 il bit nel corrispondente registro. 
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8) È possibile stabilire la priorità degli sprite rispetto allo sfondo. Normal¬ 
mente se uno sprite si muove sopra lo sfondo (testo, numeri, disegno di 
un paesaggio) esso appare sovrapposto a tale sfondo. Se desiderate che 
uno sprite appaia dietro a un oggetto di sfondo dovete posizionare a 1 il 
corrispondente bit nell’indirizzo V+27. Se due sprite si muovono uno so¬ 
pra l'altro, quello con il numero più basso ha la priorità su quello con il 
numero più alto. Lo sprite 0 ha quindi la priorità su tutti. 

9) Le collisioni degli sprite tra di loro o con lo sfondo possono essere facil¬ 
mente individuate. Se uno sprite collide (si sovrappone) con i dati dello 
sfondo, il bit corrispondente nell’indirizzo V+31 cambia da 0 a 1. Se uno 
sprite collide con un altro, i bit corrispondenti di entrambi gli sprite coin¬ 
volti, nel registro V+30 cambiano da 0 a 1. Entrambi i registri V+30 e 
V+31 sono cancellati leggendoli con una PEEK. 

Se per esempio muovete lo sprite 0 sullo sprite 1 in modo che si so¬ 
vrappongano e poi si separino di nuovo, il comando PRINT PEEK(V+30) 
mostrerà un 3. Questo accade perché i bit 0 e 1 in quel registro sono 
cambiati a 1 durante la collisione. Se voi digitate di nuovo tale comando 
verrà visualizzato uno 0. I vostri sprite possono avere un colore uniforme 
o 3 colori diversi. Per ottenere vari colori dovete attivare il modo multico¬ 
lore per lo sprite a cui vi riferite. Questo è fatto posizionando il bit corri¬ 
spondente nel registro V+28. 

I due colori aggiunti (multicolore 1 e multicolore 2) devono essere 
scritti nei registri V+37 e V+38 (lo stesso per tutti gli sprite). Il colore u- 
sato in uno sprite è definito dalla combinazione di 2 bit presi in coppia. Se 
la coppia dei due bit vale 01, allora verrà usata la funzione multicolore 1, 
se vale 10 allora verrà impiegato il normale colore degli sprite (registrati 
da V+39 a V+46), se vale 11 verrà innescata la funzione multicolore 2. Il 
programma elencato sotto dimostra qualche caratteristica della potenza 
degli sprite. Otto sprite con forme e colori casuali si muovono rapida¬ 
mente intorno allo schermo e inoltre il colore dello sfondo cambia di fre¬ 
quente. 


130 REM 33. ESEMPIO DI SPRITE 

110 PRIHT"0" : V-33248 

120 POKEV+21,235 

130 FOR R=0 TO 7 

140 POKE 2040+fi,192+fì 

150 NEXT R 

163 FOR B=12288 TO 12738 
170 POKE B,255*RND<0> 

180 NEXT B 

190 FOR 0=0 TO 7 

200 POKE V+39+C,253*RND<0> 

210 NEXT 0 
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220 POKE V+29,235 
230 POKE V+23,253 
240 POKE V+28,255 
250 POKE V+37,2S5#RHD<0> 

260 POKE V+38,235*RND<0> 

270 FOR D=0 TO 7 
280 POKE V+2*D/253*RND<0> 
290 POKE V+2*D+1,255*RND<0) 
300 NEXT D 

310 POKE V+37,253*RND<0> 

320 POKE V+38 > 255*RND < 0 ) 

330 POKEV+33,255#RNIK0> 

340 DOTO 270 

RERJOV. 
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UN GENERATORE DI SPRITE 


Il programma listato più avanti vi sarà di notevole aiuto nel creare i vostri 
sprite. 

Sullo schermo viene disegnata una cornice entro la quale potrete colloca¬ 
re gli sprite. Basta porre un carattere che non sia uno spazio (per esempio 
un asterisco) in ogni posizione dove desiderate avere un punto e usare i nor¬ 
mali tasti di controllo del cursore per il movimento all'interno della cornice. 
Per cancellare un punto muovete il cursore sulla posizione desiderata e so¬ 
vrapponete al carattere esistente uno spazio bianco usando la barra spazia¬ 
trice. Non scrivete al di fuori della cornice. Quando avete finito di scrivere i 
vostri sprite premete RETURN: lo sprite apparirà ora nell’angolo in basso a 
destra del vostro schermo, nella forma originale. A questo punto avrete le 
seguenti alternative: 

— premendo “H” espanderete lo sprite in orizzontale 

— premendo “V” espanderete lo sprite in verticale 

— premendo “C” vi riporterete al modo di generazione per effettuare 
qualche cambiamento 

— premendo "M” attiverete il modo multicolore (questo ha senso se a- 
vevate disegnato lo sprite con una forma multicolore) 

— premendo “O” ritornerete alla visualizzazione originale (non espan¬ 
sa e a colore singolo) 

— premendo "Q” visualizzerete i dati relativi al vostro sprite, che po¬ 
trete utilizzare in una istruzione DATA nel programma dove deside¬ 
rate inserire lo sprite appena creato. 


100 REM 36. GENERATORE DI SPRITE 
110 PRI NT 11 0" 

120 FORO»1026TO1049 POKEQ,100:NEXTQ 
130 F0RQ=35298T055321 POKEQ,13 :NEXTQ 
140 FORO»1065TO1863STEP40 POKEQ,103 :NEXTQ 
130 F0RQ=35337T056137STEP40:POKEQ,13 :NEXTQ 
160 FORQ=1090TO1890STEP40:POKEQ,101 :NEXTQ 
170 F0RQ-33362T056162STEP40 POKEQ,13 : NEXTQ 
130 FORO»19Q6T01929 : POKEQ, 99 : NEXTQ 
190 F0RQ=36178T0S6211 POKEQ.13 :NEXTQ 
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193 INPUTR* 

200 1=0 :V=0 
210 FORX=0TO28 
220 FORQ=0TO7 

230 IFPEEK <106S+X*4@+Q >=32THENR=0:R0TO230 
24@ A=1 

230 I=I+fi*C2t<7-Q)> 

260 NEXTQ 
270 POKE960+V,I 
2S0 I=0;V=V+1 
290 FORQ=0TO7 

300 IFPEEK <1074+X#40+Q> =32THENP=0:GOTO320 
310 fl=l 

320 I=I+R*<2t<7-Q>> 

330 NEXTQ 
340 POKE960+V,I 
350 I=0:V=V+1 
360 FORQ=0TO7 

370 IFPEEK< 10S2+X*40+Q>=32THENR=0 : GOTA390 
3S0 A=1 

390 I=I+A*<2f<?~Q>> 

400 NEXTQ 
410 POKE960+Y,I 
420 I=0:Y=Y+1 
430 NEXTX 
440 V=53243 

450 POKEV+21,4 : POKE2042,13 

460 POKEV+23,0 POKEV+29,0 

470 POKEV+4,250 : POKEV+5, 200 : REM POSIZIONE 

480 POKEV+37,10 POKEV+38,7 :POKEV+41,13 

490 OETfi*:IFfi$=""THEN490 

300 IFfl*="0"THENPOKEV+21,4 POKEV+23,0 ;POKEV+28,0 : POKEV+29,0 :POKE2042,15‘OOTO490 

310 IFA»="M"THENP0KEV+28,4 OOTO490 

320 IFfl*="H"THENP0KEV+29,4 :OOTO490 

330 IFA*="V"THENP0KEV+23,4 :GOTO490 

340 IFAt="C”THENP0KEV+21,0 :OOTO180 

530 IFflt-"Q"THEN570 

360 GOTO490 

570 PRINT"3" 

380 PRINT'' NUMERI PER LE ISTRUZIONI DRTR "PRINT 
590 FORQ=960TO1022 
600 PRINTPEEK<Ct) ; 

610 NEXTQ 
620 END 

READY. 



0.0,0 

14,121224 

31255,248 

63255252 

63255254 

63255255 

127265255 

127255.253 

251256253 

208255253 

66255253 

66255253 

66,176252 

65 , 176,60 

66,17666 

66,17665 

73 , 152,56 

49 . 152.120 

1 . 152.120 
1,152216 
3 , 185,184 
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Priorità degli sprite 

Come detto precedentemente la priorità di uno sprite dipende dal suo nu¬ 
mero: lo sprite 0 ha la più alta, lo sprite 7 la più bassa. Il programma listato 
sotto lo dimostra: otto sprite con la stessa forma, ma con colori diversi sono 
raffigurati nella stessa posizione e si muovono attorno allo schermo. 

Nella linea 120 tutti gli sprite sono attivati. Nella linea 130 tutti gli sprite 
sono espansi verticalmente e orizzontalmente. Le linee da 140 a 160 defini¬ 
scono colori diversi per gli otto sprite. Le linee da 170 a 200 definiscono, me¬ 
diante il comando POKE, la forma memorizzata nelle istruzioni DATA. Le li¬ 
nee da 500 a 520 assegnano questa forma a tutti gli otto sprite. Le linee da 
530 a 580 definiscono la posizione degli sprite sullo schermo, che aM’inizio è 
la stessa per tutti. Le linee da 590 a 780 muovono gli sprite in giro per lo 
schermo per mostrare gli effetti delle priorità. 

Le linee da 800 a 830 cambiano i colori degli sprite. 

100 REM 37. PRIORITÀ' DEGLI SPRITES 

110 V=53248 

120 POKEV+21,255 

130 POKEV+23,255 :POKEV+29,255 

140 FORX=0TO7 

150 P0KEV+39+X,X+7 

160 NEXTX 

170 FORX=0TO62 

130 READA 

190 POKE12288+X,A 

200 NEXTX 

300 DATA 0,24,0,0,60,0,0,126,0,0,255,0 
310 DATA 1,255,128,3,255,192,7,255,224 
320 DATA 15,255,240,31,255,248,63,255,252 
330 DATA 127,255,254,63,255,252,31,255 
340 DATA 248,15,255,240,7,255,224,3,255 
350 DATA 192,1,255,128,0,255,0,0,126,0 
360 DATA 0,60,0,0,24,0 

500 POKE2040,192 P0KE2041,192 :POKE2042,192 

510 POKE2043,192 POKE2044,192 POKE2045,192 

520 POKE2046,192 POKE2047,192 

530 FORX=0TO14STEP2 

540 POKEV+X,100 

550 NEXTX 

560 FGRV=1T015STEP2 
570 POKEV+V,80 
530 NEXTV 

590 FORX=0TO14STEP2 
600 FORZ=0TO100 
610 POKEV+X,100+Z 
620 NEXT2 
630 NEXTX 

640 F0RV=1T015STEP2 
650 FORZ=0TO18O 
660 POKEV+V,80+Z 
670 NEXTZ 
680 NEXTV 

690 FORX-0TO14STEP2 
700 FORZAITO10#X 
710 POKEV+X,200-Z 
720 NEXTZ 
730 NEXTX 

740 FORV=1TO15STEP2 
750 F0RZ=lTO5*V 
760 POKEV+V,1S0-Z 
770 NEXTZ 
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ree nextv 

790 Z=8 

800 P0KEV+39+Z,15#RNDC0) 
810 Z=Z-1 : IFZ=0THENZ=8 
820 FORD=1TOSO NEXTD 
830 OOTO800 


READV. 


Segnalazione di collisione 


Come descritto precedentemente la video-chip del COMMODORE 64 ha 
dei registri che indicano se gli sprite si sovrappongono tra di loro o con parti 
dello sfondo. Questa caratteristica è di aiuto nel programmare giochi. Per e- 
sempio in un gioco dove un oggetto (sprite) deve muoversi attraverso un 
tunnel (sfondo), noi controlliamo periodicamente il registro opportuno e, se 
esso indica una collisione tra lo sprite e lo sfondo programmiamo una specie 
di esplosione e diminuiamo il punteggio. Una cosa da sottolineare é che, a 
collisione avvenuta, i bit nel registro di collisione restano posizionati anche 
se non c’è più sovrapposizione: il leggere il registro di collisione li cancella. 

Il programma elencato sotto mostra come il registro di collisione lavora. 
Uno sprite si muove sopra (o sotto) un altro per lo stesso tempo viene visua¬ 
lizzato il registro di collisione (quello che indica la collisione fra due sprite). 
Non appena i due sprite sovrappongono un bit, il contenuto cambia da 0 a 3. 
Il 3 è dovuto al fatto che lo sprite 0 e lo sprite 1 collidono (00000011=3). In 
questo modo è possibile stabilire quali sprite sono venuti a collisione e con 
quali altri. Un contenuto di 192 indica per esempio che la collisione è avve¬ 
nuta tra gli sprite 7 e 0. Oltre al registro che indica la collisidone tra sprites 
ce ne è un altro che indica la collisione degli sprite con lo sfondo. 

100 REM 38. SEGNALAZIONE DI COLLISIONI 

110 FRINT"3" : V“53246 

120 POKEV+21,3 

130 POKEV+23,3 POKEV+29,3 

140 POKEV+39,7 :POKEV+40,8 

130 POKE204O,192-POKE2041,192 

160 POKEV,120 POKEV+2,200 

170 POKEV+1,100 :POKEV+3,100 

180 FORX-0TO62 

190 READA POKE12288+X,A 

200 NEXTX 

210 FORX=0TO150 

220 POKEV+2,200-X 

230 PRINT"SK»REGISTRO DELLE COLLISIONI ";PEEKCV+30) 

240 NEXTX 
230 0OTO210 

300 DATA 0,24,0,0,60,0,0,126,0,0,255,0 
310 DATA 1,255,128,3,255,192,7,255,224 
320 DATA 15,235,240,31,255,248,63,255,252 
330 DATA 127,255,254,63,255,252,31,255 
340 DATA 248,13,255,240,7,235,224,3,255 
350 DATA 192,1,255,128,0,255,0,0.126,0 
360 DATA 0,60,0,0,24,0 

READV. 
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Il passo successivo dopo aver individuato una collisione è di programma¬ 
re qualche genere di esplosione e questo é mostrato nel programma che se¬ 
gue. Qui usiamo un'area di memoria separata per definire la forma del se¬ 
condo sprite perché desideriamo cambiare questa forma dopo l'individuazio¬ 
ne di una collisione. Osserviamo la linea 205: questa linea legge il contenuto 
del registro di collisione e cancella anche la segnalazione di eventuali prece¬ 
denti collisioni. La linea 230 controlla la collisione degli sprite 0 e 1. Le linee 
da 400 a 420 cambiano il color dello sprite 1. Le linee da 400 a 500 cambia¬ 
no la forma dello sprite 1. 


100 REM 39. EXPLOSIONE DORO UMfl COLLISIONE 

110 PRINT*3- V-33248 

120 POKEV+21,3 

130 POT,EV*23.3 P0KEV*29.3 

140 P0KEV-»39.7 POKEV+40,8 

130 POKE2040,192 POKE2041,193 

168 POKEV.120 POKEV+2,200 

170 POKEV4-1,100 POKEV*3,100 

180 FORX«0TO62 

130 READ* P0KE12238*X,fl POTÈ 12288*64*X, « 

200 NEXTX 

203 Q=PEEK<V«-30> 

210 X-2O0 

220 POKEV+2.X 

230 IFPEEK<V*30>-3THEN40O 

240 X*X-1 

230 OOTO220 

300 DRTR 0,24,0,0,60,0,0,126,0,0,233,0 
310 DRTR 1,233,128,3,233,192,7,233.224 
320 DRTR 13,233.240,31,233,248.63,233,232 
330 DRTR 127,233,254.63,233-232,31,235 
340 DRTR 248,15 235,240.7,233,224,3 235 
350 DRTR 132,1,233,128.0,233,0 0.126.0 
360 DRTR 0,60,0.0,240 
480 FOPX=1TO30 
410 POKEV*40.13*RND<0) 

420 NEXTX 

430 POKEV-»40.8 

440 FORX=0T054STEP2 

430 P0KE12288+64+X,PEEK<12288*64«X>RND170 

460 NEXTX 

470 FORX=0TO34 

480 POKE12288»64*X,0 

430 FORD=1TO20 NEXTD 

300 NEXTX 


RERDV. 


Come abbiamo appreso in precedenza, possiamo assegnare a uno sprite 
una certa area di memoria dove la forma di tale sprite è definita. Possiamo 
per esempio avere otto diverse forme memorizzate in otto diverse locazioni 
di memoria e assegnare ogni forma a uno sprite in modo di averne otto di¬ 
versi sullo schermo. Un'altra possibilità è di avere per esempio due forme di¬ 
verse e assegnare a quattro sprite la prima forma e agli altri quattro la se¬ 
conda; otterremo cosi un totale di otto sprite con due tipi di forme. Un'altra 
possibilità consiste nell’usare la medesima forma per tutti gli otto sprite. Se 
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desideriamo creare un oggetto in movimento, per esempio un omino che 
passeggia, ci servirà più di una forma per sprite, ma con il COMMODORE 64 
lo si può fare facilmente. 

Dobbiamo creare due o più forme diverse in memoria e poi assegnarle, 
una dopo l’altra, allo sprite. Questo crea un effetto simile a quello di un film 
comico. Se poi creiamo dieci forme differenti e le selezioniamo una per una 
potremo creare l’illusione più realistica di un oggetto in movimento, ad e- 
sempio un uomo che corre. Nel medesimo tempo noi selezioneremo un’altra 
forma perché desidereremo muovere lo sprite sullo schermo cambiando il 
registro della posizione X o della posizione Y. Il programma listato più avanti 
usa la tecnica appena descritta. Ci sono tre diverse forme memorizzate nelle 
istruzioni DATA delle linee 300-360, 370-430, 440-500. 

Nella linea 1010 viene selezionata una delle tre forme e nella linea 1015 
viene cambiata la posizione X dello sprite. Il programma crea quindi l’illusio¬ 
ne di un barile che rotola. 

Gli altri due programmi elencati usano le stesse tecniche: il primo simula 
un cavallo che corre, il secondo un omino multicolore. Come già detto, il 
movimento appare più naturale aggiungendo ulteriori immagini. 


100 

110 

120 

140 

160 

170 

180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


REM 40. ESEMPIO DI SPRITE 

V-53248 

POKEV+21,1 

POKEV+39,30 

POKEV+1,200 

FORX-0TO62 

READ fi 

POKE 12288+X,fi 
NEXT X 

F0R X=0 TO 62 
REfiD fi 

POKE 12352+X,fi 
NEXT X 

FOR X=0 TO 62 
REfiD fi 

POKE 12416+X,fi 
NEXT X 

DfiTfi 255,255,255,255,0,1,253,0,1 
DfiTfl 235,0,1,235,0,1,233,0,1 
DfiTfi 253,0,1,253,0,1,253,0,1 
DfiTfi 233,0,1,253,0,1,233,0,1 
DfiTfi 255,0,1,253,0,1,233,0.1 
DfiTfi 233,0,1,235,0,1,233,0,1 
DfiTfl 233,0,1.253,0,1,253,233,235 
DfiTfi 255,233,233,128,253,1,128,255,1 
DfiTfi 128,235,1,128,233,1,128,253,1 
DfiTfl 128,255,1,128,253,1,128,235,1 
DfiTfi 128,255,1,128,233,1,128,255,1 
DATA 128,233,1,128,255,1,128,255,1 
DfiTfi 128,253,1,128,235,1,123,253,1 
DfiTfi 128,255,1,128,255,1,255,255,255 
DfiTfi 253,235,253,123,0,255,128,0,255 
DfiTfi 128,0,255,128,0,253,123,0,235 
DATA 128,0,255,128,0,255,123,0,253 
DfiTfi 128,0,235,128,0,255,128,0,233 
DATA 128,0,255,128,0,255,128,0,255 
DfiTfi 128,0,255,128,0,255,128,0,255 
DfiTfl 128,0,255,128,0,255,233,235,255 
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990 POKEV+23,1 : POKEV+29,1 


1000 POR X=0 TO 2 
1010 POKE 2040,192+X 
1013 POKE V,Q 1 Q-Q+5 1 IF 
1018 FOR D=1 TO 50 NEXT 
1020 NEXT X 
1030 GOTO 1000 


Q>250 THEN 
D 


Q=20 


READY. 


100 REM 41. DUE IMMAGINI DIVERSE 

110 V=53248 

120 POKEV+21,1 

130 POKEV+23,1'POKEV+29,1 

140 POKEV+39,50 

160 POKEV+1,200 

170 FORX=0TO62 

130 READA 

190 F’OKE 1228S+X, A 

200 NEXT X 

210 FORX=0TO62 

220 READA 

230 P0KE12352+X,A 

240 NEXTX 

300 DATA 0,0,0,0,0,0,0,0,144 

310 DATA 0,0,96,0,0,240,0,1,248 

320 DATA 131,233,252,71,233,238,47,233,196 

330 DATA 31 , 255 , 123,15,255,128,13,25j,128 

340 DATA 15,255,128,20,1,64,20,1,64 

350 DATA 20,1,64,36,1,32,72,0,144 

360 DATA 144,0,72,144,0,72.0,0,0 

400 DATA 0,0,0,0,0,0,0,0,144 

410 DATA 0,0,96.0,0,240,0,1,243 

420 DATA 3,253,232,7,235,238,15,235,196 

430 DATA 253,255,128,15,255,128,15,255,128 

440 DATA 15,255,128,20,1,64,20,1,64 

430 DATA 20,1,64,20.1,64,18,2,80 

460 DATA 9,4,128,9,4,123,0,0,0 

500 POKE 2040, 192 

510 POKE V,QQ=Q+3IF Q>250 THEN Q=20 

513 FOR D-l TO 50 NEXT D 

518 POKE V,Q Q=Q+3 

520 POKE 2040, 193 

530 FOR D=1 TO 50 NEXT D 

540 GOTO 500 


READY. 


100 REM 42. SPRITES 
110 V=53248 
120 POKE V+21,1 REM 
130 POKE V+39.7 REM 
140 POKE V+28,1 REM 
130 POKE V+37,2 REM 
160 POKE V+38,3 REM 
170 POKE V+29,1 : REM 
180 POKE V+23,1 REM 


VIENE ATTIVATO LO SF'RITE 1 
COLORE 

VIENE ATTIVATO IL MODO MULTI--COLORE 
MULTI-COLORE 1 
MULTI-COLORE 2 
ESPANSIONE IN ORIZZONTALE 
ESPANSIONE IN VERTICALE 
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190 POKE V+1,-100- REM POSIZIONE V 
200 REM VIENE DEFINITO LO FORMO 1 
210 FOR X=0 TO 62 
220 READ fi POKE 12288+X,A 
230 NEXT X 

240 REM VIENE DEFINITO LO FORMO 2 
250 FOR X=0 TO 62 
260 RERD fi POKE 12352+X,0 
270 NEXT X 

230 REM ISTRUZIONI DOTO PER LO FORMO 1 

290 DOTO 0,84.0.0.34,0.0,34,0 

300 DOTO 0,34,0,0,32,0,0,32,0 

310 DOTO 0,168,0,0,168,0,2,34,0 

320 DOTO 2,34,0,8,32,128,8,32,128 

330 DOTO 0,32,0,0,43,0,0,48,0 

340 DOTO 0,48,0,0,48,0,0,43,0 

350 DOTA 0,48,0,0,60,0,0,60,0 

360 REM ISTRUZIONI DOTO PER LO FORMA 2 

370 DOTO 0,84,0,0,S4,0,0,84,128 

380 DOTO 0,84,128,0,34,0,0,34,0 

390 DATO 0,168,0,0,168,0,2,32,0 

400 DOTO 2,32,0,8,32,0,8,32,0 

410 DOTO 0,32,0,0,60,0,0,60,0 

420 DOTO 0,51,48,0,51,48,0,48,192 

430 DOTO 0,48,132,0,60,0,0,60.0 

440 POKE V+0,30 

450 REM VIENE SELEZIONATO LO FORMO 1 

460 POKE 2040, 192 

470 REM CAMBIO DELLO LOCAZIONE X 

480 POKE V+0..Q Q=Q+5 IF Q>230 THEN Q=30 

490 REM RITARDO 

500 FOR D=1 TO 50 NEXT D 

510 REM VIENE SELEZIONOTO LO FORMO 2 

520 POKE 2040,193 

530 REM CAMBIO DELLO LOCAZIONE X 

540 POKE V+0, Q • Q*i2+5 

530 REM RITARDO 

560 FOR D»1 TO 100 NEXT D 

570 REM RIPETIZIONE 

530 GOTO 450 

REODV. 
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SUONO 


Il vostro COMMODORE 64 contiene all’interno uno dei circuiti a tecnolo¬ 
gia più avanzata per il trattamento del suono. 

In questo capitolo ci proponiamo di comprendere e utilizzare questa chip. 
Il circuito del suono detto anche “SOUND INTERFACE DEVICE” o abbrevia¬ 
to SID (che significa dispositivo di interfaccia del suono) è situato in memo¬ 
ria alla locazione $D400, cioè 54272. Noi assegneremo tale valore alla va¬ 
riabile S, cioè porremo S=54272. 

Il SID comprende: “ 

3 voci indipendenti 

4 forme d’onda (rumore, pulsazione, a dente di sega, a triangolo) 

3 modulatori di ampiezza 

3 generatori di inviluppo 
1 sincronizzatore di oscillazioni 
1 modulatore ad anello 

Ci sono 7 registri per il controllo di ognuno dei 3 oscillatori più 4 registri 
aggiuntivi per il controllo del filtro e del volume. Due altri registri vi permetto¬ 
no di leggere certi parametri dell’oscillatore 3, che può essere usato per in¬ 
fluenzare gli altri oscillatori. Oltre ai registri menzionati il SID ha due conver¬ 
titori A/D che vi permettono di leggere la posizione di un potenziometro (per 
esempio una paddle). 

I registri della chip del suono devono essere cancellati con il comando 
“POKE registro, 0” all’inizio di ogni programma per escludere suoni even¬ 
tualmente esistenti. 

Per attivare il canale del suono dovete procedere nel seguente modo: 

1) caricate il registro S+24 con il volume (da 0 a 15) 

2) caricate i registri per definire gli ADSR (S+5 e S+6 per l'oscillatore 1, 
S+12 e S+13 per l'oscillatore 2, S+19 e S+20 per l’oscillatore 3). Questi 
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registri definiscono come un suono inizia (aumentando di volume) e ter¬ 
mina (diminuendo di volume) 

3) caricate i registri per la definizione di frequenza (S+0 e S+1 per l’oscilla¬ 
tore 1, S+7 e S+8 per l’oscillatore 2, S+14 e S+15 per l’oscillatore 3) 

4) se desiderate selezionare la forma d’onda della pulsazione, caricate i re¬ 
gistri con l’ampiezza di pulsazione (S+2 e S+3 per l'oscillatore 1, S+9 e 
S+10 per l'oscillatore 2, S+16 e S+17 per l'oscillatore 3) 

5) selezionate la forma d’onda e generate il tono (registri S+4, S+11. S+18 
rispettivamente) 

6) definite il ciclo di ritardo 

7) iniziate il rilascio del tono riposizionando il bit che lo ha generato (registri 
S+4, S + 11, S + 18 rispettivamente). 

Il ciclo ATTACK-DECAY-SUSTAIN-RELEASE relativo a un tono è mo¬ 
strato nel diagramma seguente: 



Descrizione dei registri del SID. 

L’indirizzo di base del SID è il SD400, in decimale 54272: per indirizzare 
un registro dovete aggiungere il suo numero all'indirizzo di base. Alcuni regi¬ 
stri controllano più di un parametro, altri sono usati solo parzialmente. 
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Registro 0: 

questo registro contiene gli otto bit più bassi della frequenza dell'oscillatore 
1. In questo indirizzo potete scrivere un valore da 0 a 255 e piu alto e il valo¬ 
re, più alta sarà la frequenza dell’oscillatore 1. 

Registro 1: 

contiene gli otto bit più alti di frequenza dell’oscillatore 1, con valori da 0 a 
255. 

Registro 2: 

contiene gli otto bit più bassi dell’ampiezza di pulsazione, con valori da 0 a 
255. 

Registro 3: 

contiene i quattro bit più alti dell’ampiezza di pulsazione con valori da 0 a 15 
(gli otto bit superiori di questo registro non sono usati). I registri 2 e 3 combi¬ 
nati definiscono il rapporto tra picchi e spazi della forma d'onda pulsante. 

Se scrivete 15 nel registro 3 e 255 nel registro 2 otterrete uno spazio (o 
pausa), che rappresenta una uscita continua ovvero un'assenza di pulsazio¬ 
ni. Se scrivete 8 nel registro 3 e 0 nel registro 2 allora il rapporto tra picchi e 
spazi (pulsazioni e pause) è 1 a 1, che rappresenta una tipica onda quadra. 
Se selezionate la forma d'onda pulsante usando il registro 4, è necessario 
assegnare i valori solamente ai registri 2 e 3. 

Registro 4: 

è il registro di controllo della voce 1. Ogni bit in questo registro ha un signifi¬ 
cato diverso. Il bit più alto (7) posizionato a 1 attiva il generatore di rumore 
della voce 1. Il bit 6 posizionato a 1 seleziona una forma d’onda pulsante e in 
questo caso i registri 2 e 3 devono contenere i valori che definiscono il rap¬ 
porto pulsazione/pausa. Il bit 5 posto a 1 seleziona una forma d’onda a dente 
di sega. Il bit 4 posto a 1 seleziona una forma d’onda triangolare.il bit 3 po¬ 
sto a 1 chiude l'oscillatore 1 e questo vi permette di sincronizzare l’oscillato¬ 
re 1 con un evento esterno. Normalmente questo bit non è utilizzato e viene 
lasciato a 0. Il bit 2 posto a 1 vi permette di agire con la voce 3 sulla voce 1. 
Se desiderate utilizzare questa possibilità provate a posizionare la voce 1 a 
forma d’onda triangolare e a definire una frequenza per la voce 3: quello che 
voi udrete non sarà più una forma d’onda a triangolo, ma una combinazione 
della voce 1 e della voce 3. 

Il bit 1 posto a 1 vi permette di sincronizzare la voce 1 con la voce 3 
creando interessanti effetti sonori. Il bit 0 posto a 1 fa partire il generatore di 
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inviluppo per la voce 1 ; questo significa che il volume della voce 1 cresce da 
0 al suo valore di picco entro un tempo definito dal registro 5 (parte di AT¬ 
TACHÉ) e ritorna al livello di SUSTAIN (definito nel registro 6) entro un tempo 
definito ancora nel registro 5. Se il bit 0 è posto di nuovo a 0 il volume della 
voce 1 va dal livello SUSTAIN a 0 entro un tempo definito nel registro 6 (par¬ 
te di RELEASE). 

Registro 5: 

questo registro controlla due cose: il tempo di ATTACK e il tempo di DECAY. 
I quattro bit superiori del registro (bit da 4 a 7) definiscono il tempo di AT¬ 
TACK, cioè il tempo in cui il volume va da zero al suo valore massimo. I 
quattro bit inferiori del registro (i bit da 0 a 3) definiscono il tempo entro cui il 
volume va dal suo massimo al livello di SUSTAIN selezionato (vedi registro 
6 ). 

Registro 6: 

anche questo registro controlla due elementi, il livello di SUSTAIN e il tempo 
di RELEASE. I quattro bit superiori del registro (bit da 4 a 7) controllano il li¬ 
vello (SUSTAIN) al quale si assesta il volume partendo dal suo picco entro il 
tempo di DECAY. Sono possibili 16 posizionamenti. Il porre tutti e quattro i 
bit a 1 significa un livello di SUSTAIN al massimo volume, tutti e quattro i bit 
a 0 significa livello di SUSTAIN nullo. Il numero binario 1000, che equivale al 
decimale 128 significa un livello di SUSTAIN pari alla metà del volume di 
picco (poiché 128 è la metà superiore del byte). 

I quattro bit inferiori del registro definiscono il tempo entro cui il volume va 
dal livello di SUSTAIN a 0. Il ciclo di RELEASE inizia non appena il bit 0 del 
registro 4 è posto di nuovo a 0. Alcuni valori dei tempi di RELEASE e di DE¬ 
CAY sono: i valori 0,2,4,8,10,12,15 conducono rispettivamente a 
6,48,114,300,1.5,3 e 24 millisecondi e i corrispondenti tempi di ATTACK so¬ 
no: 2,16,38,100,500 millisecondi, 1 e 8 secondi. 

Registri da 7 a 13: 

questi registri controllano la voce 2 così come i registri da 0 a 6 controllano 
la voce 1. Le sole differenze sono: 

se selezionate SYNC per la voce 2 (bit 1 del registro 11), la voce 2 
sarà sincronizzata con la voce 1; 

- se selezionate RINGMOD per la voce 2 (bit 2 del registro 11), allora 
la forma d'onda triangolare della voce 2 sarà sostituita da una com¬ 
binazione modulata ad anello della voce 2 con la voce 1. 
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Registri da 14 a 20: 

questi registri controllano la voce 3 così come i registri da 0 a 6 controllano 
la voce 1. Le sole differenze sono: 

— se selezionate SYNC per la voce 3 (bit 1 del registro 18, ailcra la vo¬ 
ce 3 sarà sincronizzata con la voce 2; 

- se selezionate RINGMOD per la voce 3 (bit 2 del registro 18), allora 
la forma d'onda triangolare della voce 3 sarà sostituita da una com¬ 
binazione modulata ad anello della voce 3 con la voce 2. 

Registro 21: 

I tre bit più bassi di questo registro (bit 0,1,2) sono riservati alla parte infe¬ 
riore della frequenza di filtro. È consigliabile usare valori da 0 a 7. 

Registro 22: 

questo registro di otto bit serve per la parte superiore della frequenza di filtro 
(chiamata anche frequenza di taglio). 

I registari 21 e 22 insieme vi permettono di definire la frequenze di filtro da 
30HZ a 12HZ. 

Registro 23: 

i quattro bit superiori di questo registro (bit da 0 a 3) servono per controllare 
la risonanza del filtro. Un valore di 0 significa assenza di risonanza, quattro 1 
significano un filtro molto ristretto che lascia passare solo una certa fre¬ 
quenza e attenua fortemente le altre. I quattrao bit più bassi di questo regi¬ 
stro definiscono quale voce deve essere filtrata. 

Se il bit 3 è posto a 1, un impulso audio esterno è mandato attaraverso il 
filtro. Se il bit 2 è posto a 1 viene filtrata la voce 3, se il bit 1 vale 1 viene fil¬ 
trata la voce 2 e così per la voce 1 se il bit 0 vale 1. 

Registro 24: 

i quattro bit superiori di questo registro hanno le seguenti funzioni: se il bit 7 
vale 1 allora la voce 3 viene eliminata, il che può esservi utile se tale voce 
serve solo di modulazione per le altre, ma non desiderate udirla. 

Se il bit 6 vale 1 viene selezionato un filtro passa - alto. 

Se il bit 5 vale 1 viene selezionato un filtro passa - banda. 

Se il bit 4 vale 1 viene selezionato un filtro passa - basso. 
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In dipendenza dal tipo di filtro selezionato tutte le frequenze al di sotto (nel 
caso di filtro passa - alto) o al di sopra (nel caso di filtro passa - basso) della 
frequenza filtrata verranno soppresse. Se avete selezionato un filtro passa - 
banda, allora tutte le frequenze al di sopra e al di sotto della frequenza filtra¬ 
ta verranno eliminate ma non in modo così accentuato come nel caso di fil¬ 
tro passa - alto o passa - basso. Se selezionate un filtro passa - alto e un fil¬ 
tro passa - basso contemporaneamente, avrete per risultato un filtro a bar¬ 
riera di banda che lascia passare tutte le frequenze tranne una piccola por¬ 
zione intorno alla frequenza filtrata. 

Registro 25: 

questo registro vi permette di leggere un valore corrispondente alla posizio¬ 
ne di un potenziometro esterno, per esempio una paddle, infilato sulla con¬ 
nessione chiamata POTX. 

Registro 26: 

come per il registro 25, ma è valido per la connessione POTY. I due collega- 
menti appena ricordati sono connessi alle porte del joystick. 

Registro 27: 

questo registro può essere impiegato come un generatore di numeri casuali, 
se la voce 3 è posizionata sul modo “rumore”. 

Questo vi permette di leggere i quattro bit superiori d uscita della voce 3. 
Se la voce 3 è posizionata a forma d'onda a dente di sega, il registro 27 con¬ 
tiene numeri che si incrementano da 0 a 255. Se alla voce 3 è assegnata una 
forma d’onda triangolare, il registro 27 contiene numeri che si incrementano 
da 0 a 255, quindi diminuiscono fino a 0. Se alla voce 3 è assegnata infine 
una forma d’onda pulsante, il registro 27 contiene numeri che saltano da 0 a 
255. 

Registro 28: 

questo registro è simile al registro 27, con la differenza che in questo caso 
l’uscita del generatore di inviluppo della voce 3 può essere letta. Influenzan¬ 
do le altre voci mediante i registri 27 e 28 si ottengono effettti sonori speciali. 

Più sotto vengono elencati due programmi: il primo vi permette di inserire 
direttamente dei numeri (binari) nei registri della chip del suono e voi potete 
usare i tasti di controllo del cursore per passare ad un altro registro. Il se¬ 
condo vi mostra l’influenza dell'ampiezza di pulsazione sul suono quando u- 
sate una forma d'onda pulsante. 
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99 REM 43. 

100 PRINT"rr : S»54272'Z=0 

110 PRINT"VOCE 1 FREQ LO ";“C.I" 

120 PRINT" FREQ HI ";"t.I" 

130 PRINT" PW LO ";"C.3" 

140 PRINT" PW HI ";"[*#*#-3" 

130 PRINT" CONTROL ","C . 3" 

160 PRINT" BTT/DEC ";"C . 3" 

170 PRINT" SUS/REL ";"t . 3" 

130 PRINT "VOCE 2 FREQ LO ";"C . 3" 

190 PRINT" FREQ HI ";"t . 3" 

200 PRINT" PW LO “;"C . 3" 

210 PRINT" PW HI ";"C**** ....3" 

220 PRINT" CONTROL ";"t . 3" 

230 PRINT" BTT/DEC " J " t.3" 

240 PRINT" SUS/REL "J"C . 3" 

230 PRINT "VOCE 3 FREQ LO ";"C . 3" 

260 PRINT" FREQ HI ";"C . 3" 

270 PRINT" PW LO ";"C . 3" 

230 PRINT" PW HI ";"[#***-3" 

290 PRINT" CONTROL "J"C . 3" 

300 PRINT" BTT/DEC “;"C . 3" 

310 PRINT" SUS/REL ";“C . 3" 

320 PRINT"FILTRO FREQ LO "I**** *...3" 

330 PRINT" FREQ HI "J"C . 3" 

340 PRINT" RES/FIL "C.3" 

350 PRINT" MOD/VOL “;"t . 3"; 

360 PRINT"3" ; 

370 print iMmimiimir ; 

380 FOR C=1 TO 4 
385 POKE 204.. 0 

390 GET fl*<OIF fl*<C> = "" THEN 390 

391 IF PEEK<20?> THEN 391 

392 POKE 204.. 1 

393 IF B*<C> = THEN 340 

394 IF fi*<C> = "n" THEN 2=2-1 : PRINT".TT': GOTO 396 

393 GOTO 398 _ 

396 IF 2<0 THEN 2=24 ; PRINT" 

397 GOTO 370 

393 IF Bf <C> = " 1 " OR R*<C> = "0“ THEN 400 

399 GOTO 383 

400 PRINTfl*<C); 

410 NEXT C 

420 PRINT"»"; 

430 FOR C=1 TO 4 
432 POKE 204 ..0 

440 GET B*<C>:IF B*<C>="" THEN 440 
442 IF PEEK<207) THEN 442 

444 POKE 204,1 

446 IF B$<C>=" 1 " OR B*<C>="0" THEN 450 

445 GOTO 432 
450 PRINTB*<C>; 

460 NEXT C 

470 T=0 

480 FOR C=0 TO 3 

490 IF VBL<B*<C+1>>=1 THEN T=T+2t<7-C> 

500 IF VBL<B*<C+1>)=1 THEN T=T+21<3-0 
510 NEXT C 

512 N*=STR*<T> IF LENIN*>=4 THEN 520 
514 IF LEN<N*>=3 THEN 518 
516 N*=" " *N* 

518 N*=" "+N* 

520 PRINT"»";S*Z;“=";N*; 

530 POKE S+2,T 

540 2=2+1 ; IF 2=25 THEN 2=0 GOTO 360 
550 PRINT GOTO 370 


RERDV 

























S 1 ? REM 44. 

100 FRI NT" 73" 

HO PRIN T "liIMQSTRRZIONE DI AMPIEZZA DI PULSAZIONI" 
120 FRINT FRINT" SIGNIFICAI PULSRZIONE ALTA" 

130 PRINT' SIGNIFICA PULSAZIONE BASSA" 

140 P0KE54256,13 

150 P0KE34272,16 P0KE54273,16 

160 P0KE34276•64+1 

170 FOR A^0 TO 15 

180 FOR B=0 TO 255 STEP 17 

1 :?0 PRI NT ' , 

200 PRINT"." 

210 PR I NT ' ^PWPIiaCflPlPlir , 

220 FOR X«1 TO <236*A+B>/110 
230 PRINT"♦" 

240 NEXT X 

250 FOLE 54275,A 

260 POKE 54274,B 

270 At«STR#<A) At-Rt*-" " 

2S0 B*«STR*<B> BS=B*+'' 

230 PR INT -ISTRO PW HI »" • M* 

300 PR INT ' I STRO FU LO «" ,Bt 

310 NEXT B 
320 NEXT A 

READV. 
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JOYSTICK E PADDLE 


Alla destra del vostro COMMODORE 64 potete trovare due connettori a 9 
attacchi chiamati porta 1 e porta 2: ad entrambe si possono attaccare un 
joystick (leva di comando) o una paddle (paletta). Alla porta di controllo si 
può anche attaccare una penna luminosa. La differenza tra un joystick e una 
paddle è che con un joystick voi potete comunicare la direzione di un movi¬ 
mento, mentre con una paddle voi assegnate un valore assoluto. Per esem¬ 
pio se desiderate muovere uno sprite orizzontalmente (nella direzione X) 
sullo schermo, dovete fare un programma in questo modo: 

M: leggere la porta del joystick 

controllare la direzione orizzontale 
decrementare/incrementare il contatore 
scrivere i contenuti del contatore nel registro X dello sprite 
saltare indietro a M 

Con una paddle il programma diventa: 

M: leggere la porta della paddle (convertitore A/D) 
scrivere il valore nel registro dello sprite 
saltare indietro a M 

Un joystick consiste attualmente di quattro interruttori: su, giù, sinistra, 
destra. A seconda della direzione in cui muovete il joystick uno o due degli 
interruttori sono chiusi, dando origine a un numero binario che può essere 
letto dalla porta. Una paddle consiste in un potenziometro che ha una certa 
resistenza che dipende dalla sua posizione. Questa resistenza è trasformata 
in un numero da 0 a 255 da un convertitore analogico-digitale (A/D) inserito 
nel vostro COMMODORE 64. 

Sia il joystick sia la paddle hanno anche un altro interruttore costituito da 
un bottone per fare fuoco. 
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La posizione del joystick può essere letta dai comandi: 


PEEK (56321) per il joystick 1 
PEEK (56320) per il joystick 2 


A seconda della posizione del joystick questi comandi restituiranno i se¬ 
guenti valori: 

joystick in posizione neutra : 127 

su N : 126 

giù S : 125 

sinistra W : 123 

destra E : 119 

NW : 122 
NE : 118 
SW : 121 
SE : 117 


Quando il bottone del fuoco è premuto leggete i valori soprascritti me¬ 
no 16. 

Le posizioni delle paddle possono essere lette dai registri 54297 e 54298 
se state usando le paddle ATARI; entrambe sono infilate nello stesso con¬ 
nettore e questo è inserito nella porta di controllo 1. 

Il programma listato sotto vi permette di muovere uno sprite sia orizzon¬ 
talmente sia verticalmente usando 2 paddle e imitando il cosiddetto "MOU¬ 
SE” (topo) che vi permette di muovere il cursore in ogni locazione dello 
schermo. Nelle linee 190 e 200 viene letta la posizione della paddle e questo 
valore è utilizzato per la posizione orizzontale e verticale dello sprite. 


100 REM 45. USO DELLE PABBLES 
110 PRINT'TJ" 

120 V=53248 

130 POKEV+21,1 

140 POKEV+39,8 

150 POKE2040.192 

160 FORX=0TO62 

170 READA 1 POKE1228S+X,A 

1S0 NEXTX 

190 POKEV,PEEK(54297) 

200 P0KEV+1, PEEK < 54298 > 

210 DOTO 190 

300 DATA 0,24.0,0,60,0.0,126.0,0,255,0 
310 DATA 1,255,128,3,255,192,7,255,224 
320 DATA 15,255.240,31,255,248,63,255,252 
330 DATA 127,255,254,63,255,252,31,255 
340 DATA 248,15,255,240.7,255,224,3,255 
350 DATA 192,1,255,128,0,255,0,0,126,0 
360 DATA 0,60,0,0,24,0 


REABV. 
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Le paddle servono anche per influenzare il suono. Il programma seguente 
ne è un esempio. La chip del SID crea un suono sulla voce 1, influenzata 
dalla voce 3. La frequenza della voce 1 è controllata da una paddle e quella 
della voce 3 dall'altra. 

In questo modo dovreste essere capaci di generare svariati tipi di suoni 
diversi. 


100 REM 46. MUSICH CON LE PRPDLES 

110 POKE 54296,125+15 

120 POKE 5427?,128+S 

130 POKE 54273,123+8 

140 POKE 54291,128+8 

150 POKE 54292,240 

160 POKE 54290,16+1 

170 POKE 54276,16+4+0 

180 POKE 54273,PEEK<54297>/4 

190 POKE 54287,PEEK<54293>/8 

200 POKE 54276,16+4+1 

210 FORD=1TO80 : NEXTB 

220 GOTO 170 

RERDV. 
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La prima parte del libro contiene una serie di programmi in 
BASIC Commodore pronti per essere introdotti nel vostro calco¬ 
latore ed eseguiti con il comando RUN. 

La seconda parte vuole insegnarvi ad utilizzare a pieno la note¬ 
vole potenza del Commodore 64, attraverso il colore, la grafica 
ad alta risoluzione, gli sprite, il suono, i joystick e le paddle. 
Quando sarete arrivati alla fine del libro sarete capaci di scrivere 
da soli programmi sofisticati per giochi movimentati e divertenti. 
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